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ABSTRACT 


The  Computer  Aided  Prototyping  System  (CAPS)  was  created  to  rapidly  prototype 
real-time  systems  in  order  to  determine  if  the  system  requirements  can  be  met  early  in  the 
development  cycle.  CAPS  consists  of  several  software  tools  that  automatically  generate  an 
executable  Ada  model  of  the  proposed  system  from  a  given  specification.  This  thesis 
describes  the  development  of  a  user  interface  for  CAPS. 

The  user  interface  supports  the  design,  modification  and  execution  of  the  software 
prototype  throughout  the  entire  prototyping  life  cycle.  It  makes  use  of  X  Windows  and 
advanced  windowing  techniques  and  allows  the  user  to  run  the  tools  concurrently.  The 
user  interface  also  incorporates  a  separate  tool  interface  which  controls  the  interaction 
between  the  CAPS  tools  and  the  user  interface. 

The  graphic  editor  uses  advanced  graphics  capabilities  to  give  the  usejr  more  flexibility 
in  editing  a  graphical  representation  of  the  prototype.  It  automatically  produces  a  formal 
representation  of  the  prototype  to  be  used  by  the  other  tools  in  CAPS. 
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I.  INTRODUCTION 


Increased  complexity  of  software  has  led  to  the  automated  support  of  the  software  pro¬ 
cess.  Such  software  development  environments  are  a  collection  of  tools  used  to  improve 
both  productivity  and  software  quality.  One  such  environment,  the  Computer  Aided  Pro¬ 
totyping  System  (CAPS),  combines  several  tools  to  provide  automated  support  for  rapidly 
prototyping  large  real-time  systems.  CAPS  constructs  a  prototype  from  specifications 
written  in  the  Prototyping  System  Description  Language  (PSDL)  and  generates  an  execut¬ 
able  model  of  the  proposed  system[Ref.  1  :p.  1].  A  user  interface  must  be  developed  to  pro¬ 
vide  interaction  between  the  designer  of  the  proposed  system  and  the  tools.  A  tool 
interface  must  be  created  to  provide  interaction  between  the  tools.  A  graphic  editor  must 
be  constructed  to  provide  the  designer  with  a  means  of  inputting  the  prototype’s  specifica¬ 
tion  graphically,  without  being  tied  to  a  programming  language.  The  development  of  the 
user  interface,  tool  interface,  and  graphic  editor  is  the  topic  of  this  thesis. 

A.  PROBLEM  STATEMENT 

In  order  to  provide  a  rapid  prototyping  environment,  CAPS  must  support  the  designer 
throughout  the  entire  prototyping  life  cycle.  Although  the  existing  tools  of  this  environ¬ 
ment  provide  the  needed  functionality,  a  user  interface  must  be  constructed  which  embod¬ 
ies  the  prototyping  methodology  and  models  the  designer’s  decision  process. 

CAPS  contains  several  tools  that  must  work  together  to  produce  the  final  product.  A 
tool  interface  must  be  developed  to  give  these  tools  a  means  of  interaction.  It  must  work 
with  the  user  interface  to  execute  each  tool  at  the  proper  time  in  response  to  the  designer’s 
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requests.  It  must  also  provide  each  tool  with  the  proper  input.  The  design  of  the  tool  inter¬ 
face  must  also  allow  for  the  insertion  of  new  tools  in  the  environment 

A  rapid  prototyping  environment  must  provide  the  designer  with  a  way  of  entering  the 
specification  of  the  prototype.  A  conceptual  view  of  the  prototype  will  provide  the  simplest 
means  of  specifying  the  prototype  and  is  most  easily  manipulated  graphically.  It  frees  the 
designer  from  being  tied  to  a  particular  programming  language.  [Ref.  2:p.  59]  However,  the 
other  tools  in  the  environment  cannot  use  this  graphic  representation.  They  need  to  be  giv¬ 
en  the  prototype  in  a  formal  language.  This  implies  that  a  graphic  editor  must  give  the  de¬ 
signer  the  ability  to  input  a  graphical  representation  of  the  prototype,  and  automatically 
produce  the  formal  language  equivalent  to  the  graphical  input. 

B.  SCOPE 

The  development  of  a  user  interface,  tool  interface,  and  graphic  editor  for  CAPS  is  the 
focus  of  this  thesis.  The  user  interface  and  tool  interface  will  be  used  to  integrate  all  of  the 
CAPS  tools  to  provide  a  user  friendly  and  efficient  environment.  The  graphic  editor  will  let 
the  designer  input  the  prototype  graphically. 

C.  RESEARCH  APPROACH 

Because  of  its  ease  of  use,  a  window  oriented  user  interface  has  been  developed  for 
CAPS.  X  Windows  [Ref.  3]  (or  simply  X),  a  windowing  system  built  at  MIT,  has  been  used 
as  the  basis  of  the  interface  due  to  its  portability  and  powerful  applications.  A  toolkit  has 
been  used  to  develop  this  user  interface.  Interviews  [Ref.  4],  the  chosen  toolkit,  provides 
reusable  interactive  components  with  which  to  build  the  user  interface  systematically.  It 
places  graphic  objects  on  the  screen  without  having  to  manipulate  the  windowing  system 
directly  because  tlie  X  function  calls  are  embedded  in  the  Interviews  library.  Since  Inter¬ 
views  is  a  C-H-t-[  Ref.  5]  library,  the  user  interface  has  also  been  written  in  C-^"^. 
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The  tool  interface  has  been  used  to  integrate  the  tool  set.  Communication  between  the 
tools  has  been  carried  out  through  this  interface,  and  this  communication  is  uniform 
throughout  The  user  interface  interacts  with  the  tool  interface  to  determine  when  to  exe¬ 
cute  a  tool  and  what  inputs  to  provide.  The  tool  interface  is  separated  from  the  user  inter¬ 
face  in  order  to  provide  future  developers  of  CAPS  the  ability  to  change  the  user  interface 
without  changing  the  tool  interface  and  vice  versa. 

CAPS  uses  the  Prototyping  System  Description  Language  (PSDL)  [Ref.  6]  to  construct 
the  prototype.  A  data  flow  diagram  (DFD)  syntax  with  timing  and  control  constraints  has 
been  defined  for  PSDL.  The  graphic  editor  has  been  developed  to  allow  a  designer  to  input 
this  type  of  DFD. 

A  drawing  editor  (Idraw  [Ref.  7])  provided  with  Interviews  has  been  modified  to  pro¬ 
duce  the  graphic  editor.  Its  modification  provides  an  internal  semantic  representation  of 
the  enhanced  data  flow  diagram.  The  editor  must  provide  only  those  functions  that  are 
needed  to  draw  and  maintain  an  enhanced  DFD.  This  means  some  functions  of  the  editor 
has  been  removed  and  others  have  been  added.  Most  importantly,  the  editor  provides  mul¬ 
tiple  views  of  the  prototype  represented  by  the  DFD.  This  means  having  the  ability  to  open 
other  windows  while  in  the  editor  to  provide  other  needed  information  about  the  prototype 
that  cannot  be  gained  from  the  DFD  alone. 

One  use  of  multiple  views  includes  the  ability  to  add  PSDL  text  while  in  the  graphic 
editor.  The  graphic  representation  is  insufficient  to  fully  describe  the  prototype.  So  ad¬ 
ditional  PSDL  has  been  added.  While  in  the  editor,  the  designer  will  add  this  by  opening 
another  window  which  contains  a  syntax  directed  editor.  Complete  PSDL  is  output  from 
the  graphic  editor  to  be  used  by  other  tools. 
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D.  ORGANIZATION 

Chapter  D  provides  a  detailed  description  of  CAPS.  The  user  interface  toolkit  will  also 
be  discussed.  Chapter  HI  describes  the  specification  of  the  user  interface,  tool  interface, 
and  graphic  editor  to  be  built  for  CAPS.  Chapter  FV  gives  the  architectural  design  of  these 
tools.  Chapter  V  describes  the  use  of  these  tools.  Chapter  VI  provides  recommendations 
for  further  work  in  this  area.  Appendix  A  provides  the  essential  model  of  the  user  interface 
and  tool  interface.  Appendix  B  describes  the  PSDL  grammar.  Appendices  C  and  D  pro¬ 
vides  the  programmers  manuals  for  the  user  interface,  tool  interface,  and  graphic  editor. 
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II.  BACKGROUND 


A.  DEVELOPMENT  OF  LARGE  REAL-TIME  SYSTEMS 

Traditionally,  software  has  been  developed  using  the  classical  project  life  cycle  shown 
in  Figure  2.1.  The  two  major  problems  of  with  this  type  of  software  development  is  that 
each  step  cannot  be  started  till  its  predecessor  is  completed  and  that  implementation  is 
mainly  bottom-up[Ref.  8:p.  80].  It  is  not  until  the  testing  phase  that  it  is  proven  that  the 
system  meets  the  stated  requirements  and  specifications[Ref.  l:p.  3].  Large  real  time  sys¬ 
tems  and  systems  which  have  hard  real  time  constraints  are  not  well  supported  by  tradition¬ 
al  software  development  methods.  The  designer  of  this  type  of  system  will  not  know  if  the 
system  can  be  built  with  the  timing  and  control  constraints  required  until  much  time  and 
effort  has  been  spent  on  the  implementation.  A  hard  real  time  constraint  is  a  bound  on  the 
response  of  a  process  which  must  be  satisfied  under  all  operating  conditions. 

The  prototyping  method  shown  in  Figure  2.2  has  recently  become  popular.  “It  is  a 
method  for  extracting,  presenting,  and  refining  a  user’s  needs  by  building  a  working  model 
of  the  ultimate  system  -  quickly  and  in  context[Ref.  9:p.  x].’’  This  approach  captures  an 
initial  set  of  needs  and  implements  quickly  those  needs  with  the  stated  intent  of  iteratively 
expanding  and  refining  them  as  the  user’s  and  designer’s  understanding  of  the  system 
grows.  The  prototype  is  only  to  be  used  to  model  the  system’s  requirements;  it  is  not  to  be 
used  as  an  operational  system[Ref  8:p.  95]. 

To  manually  construct  the  prototype  still  takes  too  much  time  and  can  introduce  many 
errors.  Also,  it  may  not  accurately  reflect  the  timing  constraints  placed  on  the  system.  What 
is  needed  is  an  automated  way  to  rapidly  prototype  a  hard  real  time  system  which  reflects 
those  constraints  and  requires  minimal  development  time.  Such  a  system  should  make  use 
of  reusable  components  and  validate  timing  constraints. 
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Figure  2.1:  Classical  Project  Life  Cycle  [Ref.  8:p.  83] 


Figure  2.2:  Prototyping  Life  Cycle  [Ref.  9:p.  8] 


B.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM 

The  Computer  AideU  Prototyping  System  (CAPS)  is  a  set  of  software  tools.  It  provides 
an  environment  for  rapidly  constructing  executable  prototypes.  The  designer  of  a  software 
system  uses  a  graphic  editor  to  create  a  graphic  representation  of  the  proposed  system.  The 
graphic  representation  is  used  to  generate  part  of  an  executable  description  of  the  proposed 
system,  represented  in  the  prototyping  language.  This  description  is  used  to  search  a  data¬ 
base  of  reusable  software  components  to  find  components  to  match  the  specification  of  the 
prototype.  A  transformation  schema  is  used  to  transform  the  prototype  into  a  programming 
language.  The  prototype  is  then  compiled  and  executed.  The  end  user  of  the  proposed  sys¬ 
tem  will  evaluate  the  prototype’s  behavior  against  the  expected  behavior.  If  the  comparison 
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results  are  not  satisfactory,  the  designer  will  modify  the  prototype  and  the  user  will  evaluate 
the  prototype  again.  This  process  will  continue  until  the  user  agrees  that  the  prototype 
meets  the  requirements. 

The  CAPS  addressed  in  this  thesis  is  based  on  the  Prototyping  System  Description  Lan¬ 
guage  (PSDL),  “It  was  designed  to  serve  as  an  executable  prototyping  language  at  the 
specification  or  design  level[Ref.  10:p.  26].’’  It  can  be  expressed  graphically,  annotated 
with  text. 

PSDL  is  based  on  the  following  mathematical  model; 

G  =  (V.E.T(V).  C(V)) 

where  V  is  the  set  of  vertices,  E  is  the  set  of  edges,  T(V)  is  the  set  of  timing  constraints 
placed  on  V,  and  C(V)  is  the  set  of  control  constraints  placed  on  V.  A  vertex  represents  an 
operator  which  is  a  function  or  state  machine.  An  edge  represents  a  data  stream  which 
carries  a  value  of  an  abstract  data  type.  A  timing  constraint  is  the  maximum  execution  time 
of  an  operator.  “Control  constraints  are  used  to  limit  an  operator’s  behavior  by  specifying 
conditions  regarding  its  firing  (execution)  or  VO  processing. ’’[Ref.  1  l:p.  3] 

1.  Prototype  Construction  Using  CAPS 
The  CAPS  is  composed  of  eight  tools;  graphic  editor,  syntax  directed  editor,  soft¬ 
ware  base,  design  database,  translator,  static  scheduler,  dynamic  scheduler,  and  an  Ada 
compiler.  These  tools  are  used  together  to  rapidly  construct  the  prototype.  The  steps  used 
in  the  construction  process  are  described  below. 
a.  Edit 

The  designer  uses  the  graphic  editor  to  draw  an  enhanced  data  flow  diagram 
(DFD)  that  represents  the  proposed  system.  A  DFD  contains  data  flows  (directed  lines)  and 
operators  (circles).  The  operators  represent  functions  or  state  machines,  and  the  data  flows 
represent  data  used  as  input  or  output  to  the  functions  of  state  machines.  The  DFD  is  en¬ 
hanced  with  the  timing  and  control  constraints  needed  by  the  system. 
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The  current  implementation  of  the  graphic  editor  produces  a  partial  PSDL  rep¬ 
resentation  of  the  prototype  containing  the  links  between  the  DFD  components.  A  detailed 
description  of  the  new  implementation  of  the  graphic  editor  is  given  later  in  this  thesis. 

The  syntax  directed  editor  is  used  to  add  extra  PSDL  information  about  each  op¬ 
erator  and  abstract  data  type  that  cannot  be  determined  from  the  drawing  alone.  The  syntax 
directed  editor  is  a  language-based  editor  tailored  to  PSDL.  It  assists  the  user  in  creating  a 
syntactically  correct  description  of  the  prototype  written  in  PSDL.  It  provides  templates 
containing  the  legal  alternatives  for  PSDL  constructs.  It  combines  text  editing  with  incre¬ 
mental  parsing  techniques  to  guarantee  that  the  result  is  syntactically  correct[Ref.  12:p.  57]. 

In  the  previous  implementation  of  CAPS,  the  syntax  directed  editor  is  used  as  a 
separate  tool  and  is  called  from  the  user  interface.  The  problem  with  this  approach  is  that 
when  the  DFD  is  changed  in  the  graphic  editor,  the  PSDL  must  be  regenerated  using  the 
syntax  directed  editor.  Inconsistencies  between  the  DFD  and  the  PSDL  can  occur.  A  de¬ 
tailed  description  of  how  the  syntax  directed  editor  is  integrated  with  the  new  implemen¬ 
tation  of  the  graphic  editor  is  given  later  in  this  thesis. 

b.  Search  For  Reusable  Components 

The  PSDL  specification  of  an  operator  can  be  used  to  find  reusable  components 
stored  in  the  software  base,  a  database  of  reusable  components.  If  a  reusable  component  is 
not  found,  the  designer  must  decompose  the  operator  using  the  graphic  editor,  or  he  must 
implement  a  component  directly  in  Ada.  If  decomposition  is  performed,  the  software  base 
can  be  searched  for  reusable  components  that  match  this  decomposition.  This  method  of 
searching  and  decomposition  is  repeated  until  the  desired  reusable  components  are  found. 
Work  is  currently  in  progress  on  the  development  of  the  software  base. 

c.  Translate 

The  PSDL  generated  during  the  editing  process  is  used  to  generate  Ada  code 
which  has  the  timing  and  control  constraints  built  in.  The  ffanslator  translates  the  PSDL 
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specification  of  the  prototype  into  Ada  code.  It  constructs  an  abstract  syntax  tree  by  ana¬ 
lyzing  the  PSDL  representation  of  the  prototype[Ref.  12:p.  102].  This  tool  also  binds  the 
reusable  components  found  in  the  software  base  and  any  components  written  by  the  design¬ 
er  to  the  executable  prototype. 

The  static  scheduler  uses  six  scheduling  algorithms  to  link  together  all  of  the 
operators  with  timing  constraints  into  an  executable  schedule  that  guarantees  all  of  the  tim¬ 
ing  constraints  are  met.  Currently,  three  of  the  six  algorithms  have  been  integrated  into 
CAPS. 

The  dynamic  scheduler  adds  the  operators  without  timing  constraints  to  the  ex¬ 
ecutable  schedule  produced  by  the  static  scheduler.  It  uses  the  time  slots  that  are  not  used 
by  the  time  critical  operators[Ref.  1  :p.  8]. 

d.  Compile  and  Execute 

CAPS  uses  an  Ada  compiler  to  compile  and  link  together  the  reusable  compo¬ 
nents,  any  components  specific  to  the  prototype,  and  the  code  produced  by  the  translator, 
static  scheduler,  and  dynamic  scheduler.  It  produces  an  executable  version  of  the  proto¬ 
type  which  can  then  be  executed  inside  of  CAPS. 

e.  Store  Prototype  Representations 

Each  of  the  tools  produce  a  different  representation  of  the  prototype.  The  design 
database  is  used  to  store  each  of  these  representations  of  the  current  prototypes.  The  output 
of  each  tool  is  stored  in  the  design  database  after  the  tool  has  been  executed.  CAPS  re¬ 
trieves  the  prototype  in  the  form  required  as  input  to  each  of  the  CAPS  tools. 

Work  is  currently  in  progress  on  the  development  of  the  design  database.  A 
pseudo  database  currently  exists  as  a  defined  directory  structure  and  a  shell  script  for  ac¬ 
cessing  files  from  that  structure.  See  Appendix  C,  page  101  for  the  implementation  of  this 
pseudo  database. 
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C.  INTERVIEWS:  A  USER  INTERFACE  TOOLKIT 

Interviews  is  a  C++  graphical  interface  toolkit  developed  at  Stanford  University  [Ref. 
13].  It  consists  of  a  library  of  predefined  interactive  objects.  These  objects  can  be  com¬ 
bined  to  construct  many  types  of  user  interfaces[Ref.  4:p.  3].  Interviews’  object  oriented 
approach  provides  a  natural  way  to  build  user  interfaces  as  communicating  objects. 

Interviews  runs  on  top  of  X  Windows,  a  windowing  system  developed  at  MIT.  X  is  a 
portable  windowing  system  that  can  be  run  on  a  variety  of  workstations.  “It  offers  a  rich 
and  complex  environment  to  the  programmer  and  user  of  application  software  [Ref.  14:p. 
2].’’  The  X  environment  is  built  upon  the  base  window  system.  The  X  network  protocol 
provides  interaction  between  the  outside  world  and  the  base  window  system.  X  provides  a 
low  level  programming  interface  (Xlib)  to  the  network  protocol.  High  level  toolkits,  like 
Interviews,  have  been  developed  to  mask  some  of  the  complexity  of  Xlib  and  the  network 
protocol[Ref.  3:p.  3]. 

Interviews  has  several  strengths: 

•  Interviews’  object  oriented  design  provides  a  simple  organization  of  user  interface 
classes  that  is  simple  to  use  and  extend  via  subclasses. 

•  Interviews  supports  consistency  across  applications[Ref.  15:p.  20]. 

•  Interviews  allows  customization  of  the  user  interface  by  the  end  user.  It  uses  X 
Toolkit’s  version  of  the  resources  to  do  this. 

•  Interviews  abstracts  X  from  the  user  interface.  Because  of  this,  the  user  interface 
code  does  not  have  to  refer  to  low  level  details  of  X. 

•  Interviews  separates  the  user  interface  from  the  application.  This  will  provide  us 
with  the  opponunity  to  change  the  user  interface  without  changing  the  underlying 
functionality. 

Interviews  provides  three  classes  of  objects:  interactors,  graphics,  and  text.  (1)  “An  in¬ 
teractor  class  manages  some  area  of  potential  input  and  output  on  a  workstation  dis- 
play[Ref.  4:p.  3].’’  All  user  interface  objects  are  inherited  from  this  class.  Examples  of  in¬ 
teractors  are  buttons,  menus,  and  dialogue  boxes.  Figure  2.3  shows  the  hierarchial  structure 
of  the  interactor  class.  (2)  The  graphics  class  defines  structured  graphics  objects.  Objects 
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in  this  class  can  draw  and  erase  themselves.  A  state  is  attached  to  each  object  which  in¬ 
cludes  attributes  of  color,  line  style,  and  coordinate  transformation[Ref.  13:p.  7].  Examples 
of  graphics  include  circles,  ellipses,  and  lines.  Figure  2.4  shows  the  hierarchial  structure  of 
the  graphics  class.  (3)  The  text  class  defines  structured  text  objects  like  strings,  text  editors, 
and  text  buffers. 


! 

1 

Figure  23:  Interactor  Class  Hierarchy  [Ref.  13: p.  2] 


Figure  2.4:  Graphics  Class  Hierarchy  [Ref.  7:p.  3] 
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D.  roRAW:  INTERVIEWS  DRAWING  EDITOR 


Idraw  is  an  object  oriented  drawing  editor  provided  with  Interviews.  Idraw  provides 
immediate  feedback  as  the  user  creates  and  manipulates  graphic  objects  such  as  circles, 
lines,  and  splines.  An  example  of  this  type  of  feedback  is  the  movement  of  a  rectangle  caus¬ 
es  its  outline  to  follow  the  mouse.  A  picture  of  Idraw  is  shown  in  Figure  2.5.  Its  user  in¬ 
terface  is  composed  of  Interviews’  in^eractor  and  graphics  classes.  It  contains  a  set  of  tools 
on  the  left  side  of  the  editor  and  a  set  of  pull  down  menus  along  the  top.  The  tools  are  used 
to  create  the  graphic  objects  or  to  change  the  user’s  view  of  the  drawing.  The  menus  are 
used  to  set  or  change  a  graphic  object’s  attributes. 
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Figure  2.5:  Idraw:  Interviews  Drawing  Editor 
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Idraw  allows  the  user  to  create  the  following  objects: 

•  line 

•  multi  line 

•  open  spline 

•  ellipse 

•  rectangle 

•  closed  spline 

•  polygon 

•  text. 

Once  drawn,  these  objects  can  be  moved,  scaled,  stretched,  rotated,  or  reshaped.  Any  part 
of  the  drawing  can  be  magnified.  Various  standard  editing  functions,  such  as  printing  a 
drawing,  saving  a  drawing,  and  deleting  an  object,  are  provided.  Certain  attributes  of  the 
editor,  such  as  font  types,  brush  type,  pattern,  and  foreground  and  background  color  can  be 
customized  by  setting  X  resources.  These  customizations  are  stored  with  the  drawing  so 
they  can  be  restored  when  the  drawing  is  edited.  The  drawings  are  stored  in  a  modified 
PostScript  format. 
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III.  REQUIREMENTS  SPECIFICATION 


This  chapter  presents  a  summary  of  the  requirements  for  the  user  interface,  tool  inter¬ 
face,  and  graphic  editor.  The  Yourdon  [Ref.  8]  method  of  requirements  analysis  is  used  to 
develop  a  model  of  what  these  systems  must  do  in  order  to  satisfy  the  requirements.  This 
model  is  called  the  essential  model  and  is  broken  into  two  components:  the  environmental 
model  and  the  behavioral  model.  The  environmental  model  describes  the  interface  between 
the  system  being  modelled  and  the  other  systems  and  tools  it  must  interact  with.  The  be¬ 
havioral  model  describes  the  internal  processes  of  the  system.[Ref.  8:p.  323,324] 

The  term  CAPS  interface  will  be  used  to  represent  the  user  interface  and  tool  interface 
together  as  one  unit.  Each  of  these  will  be  subsystems  of  the  CAPS  interface. 

A.  CAPS  INTERFACE 

The  CAPS  interface  provides  a  cohesive  software  development  environment  integrat¬ 
ing  the  tools  of  CAPS.  A  pictorial  representation  of  this  environment  is  given  in  Figure  3. 1 . 
At  the  core  of  the  environment  is  the  host  operating  system.  The  windowing  system,  X-win- 
dows,  is  the  next  layer.  The  toolkit  chosen  to  develop  the  user  interface.  Interviews,  pro¬ 
vides  the  interaction  between  the  upper  layers  of  the  environment  and  X.  The  CAPS  tools 
sit  on  top  of  Interviews  and  are  surrounded  by  the  tool  interface.  The  tool  interface  pro¬ 
vides  all  communication  between  the  tools  and  the  user  interface.  The  user  interface,  the 
outer  most  layer  of  the  environment,  is  what  the  designer  sees  and  hides  the  underlying  im¬ 
plementation  details  and  interfaces  from  the  user. 
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Figure  3.1:  The  CAPS  Environment 

One  point  deserves  clarification  here.  If  a  tool  needs  to  interact  with  the  designer  dur¬ 
ing  its  execution,  it  is  assumed  that  it  will  provide  its  own  user  interface.  The  CAPS  user 
interface  is  not  responsible  for  providing  the  interaction  between  a  particular  tool  and  the 
designer  while  the  tool  is  running. 
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1.  The  Environmental  Model 

Appendix  A  contains  the  environmental  model  in  its  entirety  including  the  context 
diagram,  event  list,  and  statement  of  purpose.  A  summary  of  the  model  is  given  below. 

The  CAPS  interface  shall  communicate  with  a  number  of  external  entities.  These 
entities  include  the  designer  and  the  tools  of  CAPS.  The  data  passed  between  the  tools,  the 
designer,  and  the  CAPS  interface  is  shown  in  Figure  3.2. 


Figure  3.2:  CAPS  Interface  Context  Diagram 
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The  graphic  editor  shall  require  a  DFD  drawing  and  the  PSDL  as  input  The  mod¬ 
ified  drawing  and  PSDL  will  be  output  from  the  graphic  editor.  The  syntax  directed  editor 
shall  modify  the  file  of  PSDL  from  the  graphic  editor.  The  software  base  shall  use  the 
PSDL  file  to  create  the  reusable  components  that  match  the  specifications  listed  in  the 
PSDL  file.  The  translator  shall  use  the  PSDL  file  to  create  the  atomic  description  of  the 
operators.  The  static  scheduler  shall  use  the  PSDL  file  to  create  the  executable  schedule  of 
the  operators  with  timing  constraints.  The  dynamic  scheduler  shall  use  the  output  of  the 
translator  and  static  scheduler  to  create  the  complete  Ada  representation  of  the  prototype. 
The  compiler  shall  use  that  Ada  code  to  create  an  executable  prototype. 

The  CAPS  interface  must  respond  to  events  that  occur  during  its  execution.  Events  are 
caused  by  external  entities  and  are  given  in  the  event  list  in  Appendix  A. 

2.  The  Behavioral  Model 

Appendix  A  contains  the  environment  model  in  its  entirety  including  the  data  flow 
diagrams,  data  dictionary,  and  the  process  specifications.  A  summary  of  the  model  is  given 
below. 

The  CAPS  interface  is  divided  into  two  subsystems,  the  user  interface  and  the  tool 
interface.  Figure  3.3  shows  this  decomposition.  The  user  interface  shall  provide  an  ab¬ 
straction  of  the  CAPS  tools  to  the  designer.  It  gives  the  designer  a  consistent  way  to  invoke 
each  tool  and  select  a  prototype  for  use  by  each  tool.  The  tool  interface  shall  provide  for 
communication  among  CAPS  tools  and  between  tools  and  the  user  interface.  The  type  of 
communication  between  the  two  interfaces  shall  be  through  the  passing  of  the  prototype 
name  and  the  function  that  the  designer  wants  to  run. 

The  user  interface  does  not  provide  direct  access  to  all  the  CAPS  tools;  the  tools 
are  grouped  to  perform  basic  functions  of  the  rapid  prototyping  life  cycle.  The  designer 
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will  choose  a  particular  function  to  execute  from  the  user  interface.  The  basic  prototyping 
functions  are: 

•  edit/create 

•  search 

•  translate 

•  compile 

•  execute. 


Figure  3.3:  CAPS  Interface  Data  Flow  Diagram 
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The  prototyping  life  cycle  begins  by  the  designer  drawing  or  editing  a  data  flow  di¬ 
agram  using  the  graphic  editor  producing  PSDL  code.  Then,  the  designer  uses  the  syntax 
directed  editor  to  create  specifications  for  the  operators  and  types.  The  designer  searches 
the  software  base  for  reusable  components  to  match  the  PSDL  specification  of  each  of  the 
operators.  The  PSDL  is  translated  into  Ada.  The  Ada  code  is  compiled  to  make  an  exe¬ 
cutable  prototype.  The  last  step  is  to  execute  the  prototype.  If  an  error  is  found  or  the  pro¬ 
totype  is  unacceptable  at  any  of  these  stages,  the  designer  can  redo  any  or  all  of  the  steps. 

The  user  interface  shall  present  the  functions  to  the  designer  and  wait  for  a  selec¬ 
tion.  Once  the  selection  is  made,  the  user  interface  queries  the  designer  for  the  name  of  the 
prototype  to  use  when  performing  the  function.  Figure  3.4  presents  the  data  flow  diagram 
of  this  process. 


Figure  3.4:  User  Interface  Data  Flow  Diagram 
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The  tool  interface  shall  use  the  tool  and  prototype  selection  to  determine  what  tools 
to  run,  what  order  to  run  the  tools,  the  input  to  send  to  each  tool  and  the  output  to  receive 
from  each  tool.  It  shall  handle  the  concurrent  execution  of  the  tools. 

3.  Principles  of  User  Interface  Design 

In  addition  to  the  requirements  summarized  above,  eight  general  principles  of  user 
interface  design  shall  apply  to  the  development  of  the  user  interface.  [Ref.  16:p.  60-62] 

•  Provide  a  consistent  means  of  interaction  throughout  the  program. 

•  P*rovide  informative  feedback  to  the  user. 

•  Organize  the  dialogue  into  a  beginning,  middle,  and  end. 

•  Enable  the  experienced  user  to  use  shortcuts. 

•  Offer  simple  error  handling. 

•  Permit  easy  reversal  of  actions. 

•  Make  the  user  feel  in  control. 

•  Reduce  the  user’s  short  term  memory  load. 


B.  GRAPHIC  EDITOR 

The  graphic  editor  shall  support  the  creation  and  modification  of  the  graphical  repre¬ 
sentation  of  PSDL  prototypes.  [Ref.  12:p.  36]  Since  prototypes  may  be  multi  level,  the  ed¬ 
itor  shall  provide  a  mechanism  for  decomposing  the  components  of  the  drawing  into 
subcomponents.  The  editor  shall  automatically  generate  a  PSDL  representation  which  cap¬ 
tures  the  meaning  intended  by  the  drawing.  [Ref.  10:p.  22]  A  summary  of  the  essential 
model  of  the  Graphic  editor  is  given  below. 

1.  The  Environmental  Model 

The  graphic  editor  shall  communicate  with  the  tool  interface  and  the  designer.  The 
data  passed  between  these  external  entities  and  the  editor  is  shown  in  Figure  3.5.  The  editor 
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Figure  3.5:  Graphic  Editor  Context  Diagram 

receives  the  file  containing  the  PSDL  representation  of  the  prototype  and  the  drawing  file 
from  the  tool  interface.  These  files  are  modified  during  the  editing  session  and  returned  to 
the  tool  interface  when  the  editor  is  terminated.  The  editor  shall  interact  with  the  designer 
through  dialogue  and  response. 

2.  The  Behavioral  Model 

The  graphic  editor  is  divided  into  five  subsystems  as  shown  in  Figure  3.6.  The  ed¬ 
itor  shall  use  the  drawing  file  and  PSDL  file  to  initialize  the  editor’s  drawing  and  PSDL 
representation  of  the  drawing.  The  editor  then  displays  the  window  to  the  designer,  waits 
for  the  designer’s  editing  choice,  and  processes  the  choice.  This  is  done  until  the  editor  is 
terminated. 

The  window  displayed  to  the  user  shall  contain  a  list  of  drawing  tools.  The  follow¬ 
ing  is  a  minimum  list  of  tools  to  be  provided: 

•  Draw  a  circle  to  represent  an  operator. 

•  Draw  a  straight  or  curved  line  to  represent  a  data  flow. 

•  Draw  a  curved  line  to  represent  a  self  loop. 

•  Add  comments  to  the  drawing.Add  labels  to  the  drawn  objects. 

•  Decompose  an  operator  into  suboperators. 

•  Move  a  part  of  the  drawing  to  another  location  on  the  display. 

•  Edit  PSDL  text  which  describes  an  object  The  editor  will  automatically 
generate  a  portion  of  the  PSDL  from  the  drawing.  The  designer  will  edit  this 
text  to  complete  the  PSDL. 
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Figure  3.6:  Graphic  Editor  Data  Flow  Diagram 

In  addition  to  the  above  tools,  the  graphic  editor  shall  present  a  list  of  common  ed¬ 
iting  functions  to  choose  from.  A  minimum  set  of  functions  include: 

•  Open  a  drawing. 

•  Save  a  drawing. 

•  Print  the  drawing. 

•  Delete  a  DFD  component. 
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rv.  ARCHITECTURAL  DESIGN 


In  this  chapter,  the  architectural  design  of  the  user  interface,  tool  interface,  and  graph¬ 
ic  editor  is  described.  An  object  oriented  approach  is  used  to  create  a  representation  of 
these  systems  in  terms  of  the  entities  that  exist  in  the  problem  space.  The  user  interface,  tool 
interface,  and  graphic  editor  are  modeled  in  terms  of  their  classes,  their  attributes,  and  the 
operations  they  perform.  The  requirements  given  in  Chapter  HI  are  used  as  a  basis  for  mod¬ 
eling  these  systems. 

The  object  oriented  design  methodology  consists  of  the  following  three  steps: 

•  Develop  informal  solution. 

•  Develop  formal  solution  by  identifying  attributes  and  operations. 

•  Develop  implementation  strategy. 

An  informal  solution  is  composed  of  a  single  paragraph,  describing  the  behavior  of  the 
system.  The  verbs  used  in  the  paragraph  are  mapp>ed  to  operations  in  the  formal  solution. 
The  nouns  are  mapped  to  objects  or  classes. 

A  formal  solution  describes  the  classes  and  external  systems  which  define  the  system. 
This  information  is  presented  using  a  dependency  diagram  and  a  class  hierarchy.  A  depen¬ 
dency  diagram  consists  of  boxes  and  directed  lines.  Boxes  represent  external  systems  or 
classes.  Directed  lines  establish  an  interface  between  classes  and/or  external  systems.  A 
class  hierarchy  lists  the  classes  and  external  systems  which  are  components  of  the  system 
and  describes  their  behaviors,  attributes,  and  operations. 

Many  of  the  terms  used  in  the  class  hierarchy  arc  described  here.  A  class  is  a  user- 
defined  data  type.  It  refers  to  a  set  of  data  elements  and  operations  that  act  on  that  data. 
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Objects  are  instances  of  a  class.  An  object  can  als^  be  an  external  system.  Each  of  the  data 
elements  in  a  class  is  an  attribute  of  the  class.  In  C-h-,  these  are  known  as  member 
variables.  The  operations  on  this  data  are  known  as  member  functions  in  C  ++.  All  classes 
have  a  constructor  operation  to  perform  needed  initialization  when  an  instance  of  the  class 
is  created.  The  constructor  has  the  same  name  as  the  class.  A  colon  (:)  will  be  used  to  relate 
an  object  to  its  class.  For  example,  circle  :  Circle  shows  that  circle  is  an  instance  of  the 
class  Circle. 

An  implementation  strategy  provides  a  basis  for  implementing  the  system  in  terms  of 
the  target  X  Windows  toolkit.  Interviews.  It  describes  which  Interviews  classes  might  best 
be  used  in  the  implementation  of  the  class. 
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A.  USER  INTERFACE 


1.  Informal  Solution 

The  user  interface  displays  a  menu  of  prototyping  functions  to  the  user  and  waits 
for  the  user  to  choose  an  item.  Once  chosen,  a  list  of  prototypes  available  for  use  by  that 
function  are  displayed.  After  the  user  selects  one  of  the  prototypes,  the  CAPS  tools  that  cor¬ 
respond  to  the  chosen  function  are  executed. 

2.  Formal  Solution 

The  major  classes  and  their  interrelationships  are  shown  in  Figure  4. 1 .  The  class  hi¬ 
erarchy  is  as  foUows: 


Design  _Dat  abase 

Figure  4.1:  User  Interface  Dependency  Diagram 
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Class  CAPS_Main_Menu 
Behavior.  Displays  a  menu 
Attributes: 

Set_Of_F  unctions: 
Operations: 

CAPS_Main_Menu: 

Accept: 


pmtotyping  functions. 

Group  of  prototyping  fuiictions. 

Creates  and  displays  menu. 
Processes  user’s  menu  choice. 


of  CAPS 


Class  Selecter 


Behavior:  Displays  a  menu  of  prototype  names  available  for  use  by  chosen  function. 
Attributes: 

List_Of_Prototypes:  List  of  prototypes  for  chosen  function. 

Operations: 


Selecter; 

Insert: 

Select; 


Creates  and  displays  menu. 

Inserts  available  prototypes  into  menu. 
Processes  user’s  prototype  choice. 


System  TooI_Interface 

Behavior:  Manages  the  execution  of  the  CAPS  tools. 


Attributes: 

Function_Choice: 

Prototype_Name: 

Operations: 

Tool_Interface: 

ExecuteFunction: 


Function  chosen  in  CAPS_Main_Menu. 
Prototype  chosen  in  Selecter. 

Initializes  all  attributes. 

Executes  CAPS  tool(s)  that  correspond  to  cho¬ 
sen  function. 


System  Design_Database 

Behavior:  Manages  files  associated  with  a  prototype. 

Attributes: 

Function_Choice:  Function  chosen  in  CAPS_Ma>i_Menu. 

List_Of_Prototypes:  List  of  available  prototypes  for  chosen  func¬ 

tion. 


Operations: 

Design_Database:  Initializes  all  attributes. 

FindPrototypes:  Locates  all  available  prototypes  for  chosen 

function. 
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3.  Implementation  Strategy 


Operation  Main 

The  user  interface  should  be  driven  by  the  Main  program.  I  should  create  a  world 
for  the  user  interface  using  the  Interviews  class  World.  It  should  create  an  ^  ^  of  the 
CAPS_Main_Menu  class  and  insert  the  menu  into  the  world.  It  she  .  :i  use  the  Ac¬ 
cept  operation  of  the  CAPS_Main_Menu  to  loop  on  the  user’s  menu  choices  until  the 
menu  is  terminated.  Lasdy,  it  should  remove  the  menu  from  the  screen. 

Class  CAPS_Main_Menu 

The  CAPS_Main_Menu  should  be  a  dialog  box  containing  push  buttons  represent¬ 
ing  the  CAPS  functions.  The  user  will  choose  the  desired  function  by  pressing  one  of  the 
buttons  using  the  mouse.  A  dialog  box  containing  the  names  of  the  prototypes  available  to 
be  used  with  that  function  should  then  pop  up.  The  user  can  choose  a  name  or  type  the 
name  of  a  new  prototype  in  the  space  provided.  The  TooI_Interface  should  execute  the 
proper  tool(s)  corresponding  to  the  function  chosen. 

Class  Selecter 

The  Selecter  is  inherited  from  the  StringChooser  class,  an  interactor  class  provid¬ 
ed  with  Interviews.  The  StringChooser  is  a  dialog  box  which  manages  keyboard  focus 
between  a  StringBrowser  and  a  StringEditor.  A  string  can  be  selected  with  the  mouse  in 
the  StringBrowser  or  can  be  typed  in  the  StringEditor.  The  Selecter  builds  upon  the 
StringChooser  to  present  prototype  names  to  the  designer.  Two  buttons  are  provided:  Se¬ 
lect  and  Cancel.  The  Select  button  is  pressed  once  a  name  is  chosen  in  order  to  process  the 
chosen  name,  and  the  Cancel  button  is  used  to  terminate  the  selection  without  executing  the 
CAPS  function. 
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System  Design_Database 

The  Design_Database  will  be  used  to  retrieve  the  names  of  the  available  proto¬ 
types.  Since  it  has  not  been  implemented,  a  simulated  design  database  will  need  to  be  writ¬ 
ten  to  search  a  predefined  directory  for  all  files  which  can  be  input  to  the  chosen  function. 

System  TooI_Interface 

The  Tool  Interface  is  described  in  detail  in  Section  B. 
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B.  TOOL  INTERFACE 


1.  Informal  Solution 

The  tool  interface  executes  a  CAPS  tool  based  on  the  prototyping  function  request¬ 
ed.  It  uses  the  prototype  selected  to  determine  the  input  and  output  for  the  tool. 

2.  Formal  Solution 

The  tool  interface  depends  on  the  CAPS  tools.  A  diagram  of  these  dependencies  is 
shown  in  Figure  4.2.  The  class  hierarchy  follows. 


Tool_lnterface 


Figure  4.2:  Tool  Interface  Dependency  Diagram 
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Class  Tool_Interface 

Behavior.  Executes  the  CAPS  tool(s)  based  on  prototyping  function  requested. 

Attributes: 

F  unction_Requested : 

Prototype_Name: 

Operations: 

TooI_Interface: 

ExecuteFunction : 

System  graphic  editor: 

Behavior:  Used  to  create  an  enhanced  DFD  and  the  PSDL  that  represents  it.  It  takes 
as  input  the  existing  drawing  and  the  PSDL  (if  already  created). 

System  syntax  directed  editor: 

Behavior:  Used  by  the  graphic  editor  to  add  extra  PSDL  information  about  an  oper¬ 
ator  or  data  tyije.  It  takes  as  input  the  partial  PSDL  created  from  the  draw¬ 
ing. 

System  software  base: 

Behavior:  Used  to  find  reusable  components  to  match  the  operators  drawing  in  the 
graphic  editor.  It  takes  as  input  the  PSDL  specification  for  each  ojierator. 

System  translator: 

Behavior:  Used  to  translate  the  specification  of  the  operators  into  Ada.  It  takes  as 
input  the  PSDL  created  in  the  graphic  editor. 

System  static  scheduler: 

Behavior:  Used  to  schedule  the  operators  with  timing  constraints.  It  takes  as  input 
the  PSDL  created  in  the  graphic  editor. 

System  dynamic  scheduler: 

Behavior:  Used  to  schedule  the  operators  without  timing  constraints.  It  takes  as  input 
the  PSDL  created  in  the  graphic  editor. 

System  compiler: 

Behavior:  Used  to  compile  the  reusable  components,  and  the  output  of  the  translator, 
the  static  scheduler  and  the  dynamic  scheduler. 


Request ,  in  the  form  of  a  query,  made  by 
user  interface  or  any  of  the  CAPS  tools. 
Prototype  chosen  in  user  interface. 

Initializes  class  variables  and  parses  input  pa¬ 
rameters. 

Retrieves  appropriate  inputs  based  on  proto¬ 
type  name  and  executes  function  using  CAPS 
tool(s). 
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3.  Implementation  Strategy 

Operation  Main 

The  tool  interface  is  driven  by  the  Main  program.  It  will  perform  two  functions: 
parse  the  given  arguments,  and  execute  CAPS  tool(s)  based  on  the  function  requested. 

Class  TooI_Interface 

The  TooI_Interface  will  use  the  given  function^request  and  the  prototype_name 
to  retrieve  data  from  the  design  database  to  pass  as  input  to  the  tools.  It  will  execute  the 
tool(s)  by  opening  a  terminal  window  in  X.  It  then  gets  output  from  the  tools  and  updates 
the  design  database. 
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C.  GRAPHIC  EDITOR 


The  method  chosen  for  construction  of  the  graphic  editor  is  the  modification  of  an  ex¬ 
isting  drawing  tool.  Two  advantages  of  this  approach  are: 

•  The  editor  can  be  developed  in  less  time. 

•  The  drawing  tool  will  provide  much  of  the  required  functionality. 

Interviews’  Idraw  was  chosen  as  the  drawing  tool  because  of  its  powerful  graphics, 
PostScript  output,  editing  capabilities,  object  oriented  representation,  and  ease  of  use.  It 
also  provides  a  variety  of  fonts,  colors,  brush  types,  and  patterns  to  enhance  the  drawing. 

An  iterative  design  technique  will  be  used  to  design  the  graphic  editor.  The  first  step  is 
to  analyze  Idraw.  After  this,  the  following  steps  will  be  done  iteratively: 

•  Select  an  area  to  change. 

•  Modify  high  level  design  to  incorporate  the  change. 

•  Implement  and  test  the  change. 

1.  Analyze  Idraw 

Idraw  is  an  Interviews  application  written  in  the  C-m-  object  oriented  language.  See 
Figure  2.5  for  a  display  of  Idraw.  The  following  is  an  object  oriented  analysis  of  Idraw. 

Class  Idraw 

Idraw  is  the  main  class  of  the  editor.  It  opens  a  given  drawing  file,  if  any,  creates 
the  editor  on  the  screen,  and  calls  the  event  handler.  Run,  to  process  the  user’s  actions  until 
the  user  chooses  to  terminate  the  editor. 

Idraw  depends  on  several  classes.  A  diagram  of  these  dependencies  is  shown  in 
Figure  4.3.  The  class  hierarchy  is  as  follows: 
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Idraw 


Figure  4  J:  Idraw  Dependency  Diagram 


Class  Idraw 


Behavior:  Displays  a  drawing  editor. 
Set  of  Attributes: 
initial^drawing: 
cmds ;  Commands; 

drawing :  Drawing: 
drawingview :  DrawingView; 
editor ;  Editor: 
mapkey :  MapKey; 


Name  of  drawing  file  to  edit. 

Displays  a  pull  down  menu  bar  which  contains 
many  pull  down  menus. 

Performs  operations  on  the  drawing. 

Displays  drawing. 

Handles  drawing  and  editing  operations. 
Maps  characters  to  Interactors. 
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panner :  Fanner:  Pans  and  zooms  drawing, 

state :  State:  Stores  current  state  information  about  draw¬ 

ing. 

stateview  :  StateView:  Displays  current  state  information, 

tools :  Tools:  Displays  drawing  Tools. 

Operations: 

Idraw:  Parses  command  line  arguments,  initializes  at¬ 

tributes,  and  displays  editor. 

Run:  Opens  drawing  file,  and  processes  user’s 

choices  until  the  editor  is  terminated. 


Class  Commands 


Commands  provides  over  100  traditional  editing  commands.  It  is  displayed  as  a 
menu  bar  containing  a  collection  of  pull  down  menus  referenced  by  the  title  of  the  menu. 
The  following  groups  of  editing  functions  are  represented  by  the  menus: 


•  File: 

•  Edit: 

•  Structure: 

•  Font: 

•  Brush: 

•  Pattern: 

•  Color: 

•  Align: 

•  Options: 


Presents  file  operations  such  as  opening  a  file,  saving  a  file, 
and  printing  a  file. 

Presents  editing  operations  such  as  deleting  a  selected  ob¬ 
ject,  cutting  an  object  from  the  drawing,  and  pasting  a  cut 
object  in  the  drawing. 

Presents  operations  to  change  the  way  objects  are  structured 
together  such  as  grouping  selected  objects  together,  bringing 
an  object  to  the  front  of  the  group,  and  sending  an  object  to 
the  back  of  the  group. 

Presents  a  list  of  fonts  to  be  used  for  the  text  in  the  drawing. 
Presents  various  types  of  brushes  such  as  solid  lines,  dashed 
lines,  and  directed  lines  anchored  at  one  end. 

Presents  a  list  of  patterns  for  the  selected  graphic  objects. 
Presents  a  list  of  foreground  and  background  colors  for  the 
selected  graphic  objects. 

Presents  various  alignment  options  such  as  aligning  left 
sides  of  selected  objects,  and  aligning  centers  of  selected 
objects. 

present  various  options  to  aid  in  putting  the  drawing  on  the 
page,  such  as  reducing  a  drawing  to  fit  on  one  page,  center¬ 
ing  a  drawing  to  the  page,  and  providing  a  grid. 
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Class  Drawing 

The  Drawing  contains  the  internal  representation  of  the  picture.  The  user’s  draw¬ 
ing  is  stored  as  a  linked  list  of  graphic  objects.  The  interface  to  modify  the  objects  is  also 
provided.  Drawing  depends  on  two  classes: 

•  PictSelecdon:  Linked  list  of  objects  in  drawing. 

•  SelectionList:  Linked  list  of  those  objects  to  be  modified  by  a  command  or 

tool. 

Class  DrawingView 

The  DrawingView  provides  the  user’s  view  of  the  drawing.  It  is  responsible  for 
everything  drawn  on  the  screen. 

Class  Editor 

The  Editor  performs  the  operation  selected  by  the  user  for  the  given  tool  or  com¬ 
mand.  It  uses  Drawing  to  modify  the  internal  representation  of  the  drawing  when  needed. 

Class  MapKey 

Each  of  the  tools  and  commands  can  be  executed  by  typing  a  letter  as  a  shortcut  to 
clicking  with  the  mouse.  MapKey  maps  the  letter  to  the  tool  or  command  desired.  It  stores 
all  of  the  tools  and  commands  in  a  table  indexed  by  the  shortcut  letter. 

Class  Fanner 

The  Fanner  is  used  to  pan  and  zoom  the  drawing  in  order  to  view  the  drawing  close 
up  or  farther  away. 

Class  FictSelection 

Drawing  stores  all  of  the  graphic  objects  drawn  on  the  screen  in  picture,  an  instance 
of  the  FictSelection  class.  Each  object  is  an  instance  of  a  class  inherited  from  the  class 
Selection.  Selection  is  inherited  from  the  Interviews  Graphic  class.  FictSelection  is 
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inherited  from  Selection  and  is  a  linked  list  of  all  the  Selections  in  the  drawing.  The 
Selection  inheritance  hierarchy  is  shown  in  Figure  4.4.  The  NPtSelection,  also  shown  in 
the  figure,  is  a  special  type  of  graphic  object  that  can  draw  arrowheads  on  one  or  both  of  its 
endpoints. 

Class  SelectionList 

The  SelectionList  contains  a  subset  of  the  Selections  in  the  drawing.  It  is  a  linked 
list  of  only  those  Selections  chosen  by  a  drawing  tool  or  editing  command. 

Class  State 

State  stores  state  information  about  the  user’s  drawing  and  paint  attributes  to  be 
used  when  creating  new  graphic  objects.  Some  of  the  information  stored  is  the  bmsh  type, 
drawing  name,  font,  and  pattern. 


Seie< 

1 

LineSelection 


I 


MultiUneSelection 


Figure  4.4:  Selection  Hierarchy 
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Class  StateView 

Idraw  keeps  track  of  and  displays  current  state  information.  The  kinds  of  informa¬ 
tion  displayed  are: 

•  current  brush  type 

•  name  of  current  drawing 

•  current  font 

•  status  of  gridding 

•  magniHcation  percentage 

•  current  modification  status  of  drawing 

•  current  pattern. 

Each  piece  of  information  is  a  separate  object  and  inherited  from  StateView.  The 
StateView  hierarchy  is  shown  in  Figure  4.5. 

Class  Tools 

Tools  creates  the  panel  that  displays  the  drawing  tools  to  the  user.  These  drawing 
tools  are; 


•  Select  one  or  more  graphic  objects. 

•  Move  the  selected  objects  to  another  location  on  the  screen. 

•  Scale  the  selected  objects. 

•  Stretch  the  selected  objects. 

•  Rotate  the  selected  objects. 

•  Reshape  the  selected  objects. 

•  Magnify  the  selected  objects. 

•  Add  text  to  the  drawing. 

•  Draw  a  line. 

•  Draw  a  multiline. 

•  Draw  an  open  spline. 

•  Draw  an  ellipse. 

•  Draw  a  rectangle. 

•  Draw  a  polygon. 

•  Draw  a  closed  spline. 
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The  panel  created  by  Tools  is  made  up  of  panel  items  known  as  IdrawTools.  Each 
of  the  above  functions  is  represented  by  a  class  inherited  from  IdrawTool.  The  Idraw- 


Tool  hierarchy  is  shown  in  Figure  4.6. 


ModifStatusView 


PottarnViaw 


Figure  4.5:  StateView  Hierarchy 


Figure  4.6:  IdrawTool  Hierarchy 
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2.  Changes 

The  following  is  a  list  of  major  changes  to  be  made  to  Idraw  to  construct  the  graphic 

editor: 

•  Present  Prototype  Names  To  The  User. 

•  Remove  Unused  Commands  and  Tools. 

•  Add  Internal  Representation  of  DFD. 

•  Modify  Existing  Commands  and  Tools. 

•  Add  New  Tools. 

•  Add  Ability  to  Rebuild  DFD  Data  Structure. 

•  Add  Message  Block. 

Most  of  these  changes  are  alterations  to  existing  code.  For  these,  the  formal  design 
is  not  given.  For  areas  where  a  new  design  was  needed,  the  formal  design  is  presented. 

a.  Present  Prototype  Names  To  User 

Informal  Solution 

Display  prototype  names,  instead  of  file  names,  to  the  user.  Accept  a  prototype 
name  as  input  to  the  graphic  editor.  To  open  and  save  drawings  inside  the  editor,  present  a 
list  of  prototype  names  and  wait  for  a  selection. 

Implementation  Strategy 

The  Idraw  driver  function.  Main,  has  one  argument,  initial_niename.  Modify 
Main  to  accept  two  arguments,  initial_prototype_name  and  prototype_directory.  These 
are  the  name  of  the  prototype  which  contains  the  DFD  to  be  edited,  and  the  directory  where 
the  prototype’s  DFD  file  is  located.  Change  Idraw’s  operation,  ParseArgs,  to  incorporate 
the  two  arguments  into  the  graphic  editor. 

Modify  the  Open  and  Save  operations  of  the  Editor  class  to  use  instances  of  the 
Selecter  class  to  present  the  names  of  prototypes  available  to  the  user  for  editing  or  saving. 
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The  Selecter  class  was  presented  in  the  design  of  the  user  interface,  ^draw  uses  instances 
of  the  FileChooser  class  to  present  file  names  vo  the  user. 


b.  Remove  Unused  Commands  and  Tools 
Informal  Solution 

The  following  commands  are  not  needed  to  edit  an  enhanced  DFD  and  will  be 

removed: 

•  FlipHorizontai 

•  FlipVertical 

•  90Clockwise 

•  90CounterCW 

•  PreciseMove 

•  PreciseScale 

•  (''-eciseRotate 

•  Grotip 

•  Ungroup 

•  BringToFront 

•  SendToBack 

•  NumberOfGraphics 

•  New 

•  All  patterns  except  solid,  opaque,  and  transparent 

•  All  Brush  types. 

The  following  tools  are  not  needed  or  replaced  by  new  tools  with  alter  function¬ 
ality: 

•  ScaleTool 

•  StretchTool 

•  RotateTool 

•  MagnifyTool 

•  TextTool 

•  LineTool 

•  MultiLineTool 

•  RectTool 
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•  PolygonTool 

•  ClosedBSplineTool. 

Implementation  Strategy 

To  remove  the  commands  and  tools  not  needed  to  draw  a  DFD,  the  pull  down 
menus  and  the  panel  items  that  represent  those  commands  and  tools  must  be  removed.  The 
command  objects  that  are  removed  are  a  subset  of  the  objects  that  are  instances  of  the  sub¬ 
classes  of  the  IdrawCommand  class.  The  tool  objects  that  are  removed  are  a  subset  of  the 
objects  that  are  instances  of  the  subclasses  of  the  IdrawTool  class.  The  modified  inherit¬ 
ance  hierarchy  of  IdrawTool  is  shown  in  Figure  4.7. 

The  operations  that  process  the  command  or  tool  are  a  part  of  the  Editor  class 
and  must  also  be  removed.  The  operations  that  are  called  by  a  tool  start  with  the  word  Han¬ 
dle.  For  example,  the  HandleSelect  operation  is  called  by  the  Select  tool.  The  operations 
that  are  called  by  a  command  are  the  same  name  as  the  command.  For  example,  the  Save 
operation  is  called  by  the  Save  command. 


Figure  4.7:  Modified  IdrawTool  Hierarchy 


c.  Add  Internal  Representation  of  DFD 
Informal  Solution 

Create  an  internal  representation  of  the  drawing  which  will  relate  data  flows, 
self  loops  and  labels  to  operators.  The  PSDL  text  representing  each  operator  must  also  be 
maintained  with  each  operator. 


Formal  Solution 
Class  OperatorList 

Behavior.  Maintains  the  list  of  drawn  operators  and  their  associated  labels,  maxi¬ 
mum  execution  times,  self  loops,  and  data  flows. 

Set  of  Attributes: 

operator :  OperatorSelection:  The  ellipse  drawn  on  the  screen  and  its  associ¬ 

ated  graphic  objects. 

Operations: 

OperatorList:  Initializes  the  list 

Remove:  Removes  an  operator  from  the  list. 

Add:  Add  an  operator  to  the  list. 

Search:  Search  the  list  to  find  the  given  operator. 


Class  OperatorSelection 

B  ehavior:  Stores  all  graphic  objects  drawn  in  the  editor  that  are  related  to  an  operator. 

Set  of  Attributes: 


ellipse :  EllipseSelection: 
label :  TextSelection: 
met :  TextSelection: 
inputjist :  DFDSplineList: 

outputjist :  DFDSplineList: 

selfloop_list :  DFDSplineList: 
PSDL  buffer :  TextBuffer: 


EUipse  drawn  on  screen  to  represent  operator. 
Operator’s  identifier. 

Operator’s  maximum  execution  time. 

List  of  input  data  flows  associated  with  opera¬ 
tor. 

List  of  output  data  flows  associated  with  oper¬ 
ator. 

List  of  self  loops  associated  with  operator. 
Stores  current  PSDL  that  represents  operator. 


The  classes  EllipseSelection,  TextBuffer,  and  TextSelection  are  provided  with  Idraw. 
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Operations: 


OperatorSelection: 

Initialize  all  components  and  add  initial  PSDL 
text  to  PSDL_buffer. 

SetEllipse: 

Set  value  of  ellipse. 

SetLabel: 

Set  value  of  label  and  add  operator’s  identifier 
to  reDL_buffer. 

SetMET: 

Set  value  of  met  and  add  maximum  execution 
time  to  PSDL_buffer. 

Addinput: 

Add  data  flow  to  inpuMist  and  add  input 
place  holder  to  PSDL_buffer. 

AddOutput: 

Add  data  flow  to  output_list  and  add  output 
place  holder  to  PSDL_bufrer. 

AddInputLabel: 

Add  data  flow’s  label  to  inputjist  and  replace 
inputplaceholder  with  label  in  PSDL_buffer . 

AddOutputLabel : 

Add  data  flow’s  label  to  outpuMist  and  re¬ 
place  output  placeholder  with  label  in  PSDL_- 
buffer. 

AddSelfLoop: 

Add  self  loop  to  selfloopjist  and  add  state 
place  holder  to  PSDL_buffer. 

AddSelfLoopLabel : 

Add  self  loop’s  label  to  selfloopjist  and  re¬ 
place  state  placeholder  with  label  in  PSDL_- 
buffer. 

RemoveLabel: 

Remove  label  and  remove  operator’s  identifier 
in  PSDL_buffer. 

RemoveMET: 

Remove  met  and  remove  maximum  execution 
time  in  PSDL_bufTer. 

Removelnput: 

Remove  data  flow  and  its  label  from  inputjist 
and  remove  input  data  flow  and  its  label  from 
PSDL_buffer. 

RemoveOutput; 

Remove  data  flow  and  its  label  from  output_- 
list  and  remove  output  data  flow  and  its  label 
from  PSDL^buffer. 

RemoveSelfLoop; 

Remove  data  flow  and  its  label  from  sel¬ 
floopjist  and  remove  state  and  its  label  from 
PSDL_buffer. 

RemoveInputLabel; 

Rerrwve  data  flow’s  label  from  inputjist  and 
replace  input  label  with  input  placeholder  in 
PSDL_bufTer. 

RemoveOutputLabel ; 

Remove  data  flow’s  label  from  output  list 

and  replace  output  label 

with  output  placeholder  in  PSDL_buffer. 
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RemoveSelfLoopLabel: 


Remove  data  flow’s  label  fiiom  selfloop_list 
and  replace  state  label  with  output  placeholder 
inPSDL  buffer. 


Class  DFDSplineList 
Behavior:  Maintains  list  of  splines 
Set  of  Attributes: 

spline :  DFDSplineSelection: 

Operations: 

DFDSplineList: 

Add: 

Search: 

Class  DFDSplineSelection 
Behavior:  Stores  spline  and  its  label. 

Set  of  Attributes: 

spline  :  SplineSelection:  Directed  spline  drawn  on  the  screen  to  repre¬ 

sent  the  flow  of  data. 

label :  TextSelection:  Label  associated  with  spline. 

latency  :  TextSelection:  Maximum  firing  time  associated  with  data 

flow. 

The  classes  SplineSelection  and  TextSelection  are  provided  with  Idraw. 

Operations: 

SetSpline:  Set  spline. 

SetLabel:  Set  label. 

SetLatency:  Set  latency. 


and  their  labels. 

The  directed  spline  and  its  label  and  latency 
drawn  on  the  screen. 

Initializes  list. 

Add  a  spline  to  the  list. 

Search  the  list  to  find  the  given  spline. 


Implementation  Strategy 

The  OperatorList  class  should  be  a  linked  list  of  OperatorSelections.  An 
OperatorSelection  should  contain  a  label,  a  maximum  execution  time,  zero  or  more  self 
loops  (states)  and  their  labels,  and  zero  or  more  input  data  flows,  their  latencies,  and  their 
labels.  The  self  loops  and  their  labels,  the  inputs  and  their  labels,  and  the  outputs  and  their 
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labels  should  be  stored  in  instances  of  their  DFDSplineList,  a  linked  list  of  DFDSplineSe 
lections. 


Add  an  instance  of  the  OperatorList  class  to  the  Drawing  class  as  one  of  its 
attributes.  Drawing  should  provide  the  interface  between  the  drawing  operations  done  by 
the  user  and  the  maintenance  of  the  list.  Add  operations  to  Drawing  to  append  drawn  ob¬ 
jects  to  the  list. 

Also  add  three  instances  of  the  TextBuffer  class  to  the  attributes  of  Drawing  to 
maintain  the  PSDL  specification  of  the  drawing,  the  data  streams  added  to  the  drawing,  and 
the  control  constraints  of  the  drawing.  These  attributes  may  be  called  streams  buffer, 
constraints^buffer,  and  speciflcation_buffer.  Add  operations  to  Drawing  to  retrieve  text 
from  these  buffers  and  add  text  to  these  buffers. 

d.  Modify  Existing  Commands  and  Tools 

Informal  Solution 

Because  of  the  new  DFD  representation,  the  existing  tools  and  commands  must 
be  changed  to  modify  this  representation.  The  changes  needed  are  described  below. 

Delete  —  Change  the  Delete  command  to  also  delete  the  selected  objects  from 
the  DFD  internal  representation  when  deleting  them  from  the  drawing.  If  this  deletion  cre¬ 
ates  inconsistency  in  the  stored  PSDL  text,  the  PSDL  must  be  updated  to  reflect  the  change. 

Modify  —  Modify  the  Move  tool  to  move  an  operator’s  related  objects  when 
the  operator  is  moved.  If  an  operator  is  moved,  its  label,  maximum  execution  time,  self 
loops,  and  input  and  output  data  flows  must  also  move. 

Reshape  —  Change  the  functionality  of  the  Reshape  tool  to  modify  data  flows 
and  self  loops  and  edit  text  on  the  screen.  Change  the  name  of  the  tool  to  be  Modify  Tool 
since  a  data  flow’s  shape  is  modified  by  moving  its  endpoints  and  text  is  modified  by  edit- 


Ellipse  —  Modify  the  Ellipse  tool  to  draw  an  ellipse  with  a  set  radius.  This  will 
insure  that  all  operators  will  be  the  same  size  in  the  DFD. 

Spline  —  Change  the  Spline  tool  to  draw  a  data  flow  or  self  loop  to  the  edge  of 
the  operator  it  is  attached  to.  This  should  not  be  assumed  to  be  done  by  the  user.  Therefore, 
if  an  endpoint  of  a  data  flow  or  self  loop  is  set  inside  an  operator,  the  endpoint  meet  auto¬ 
matically  be  changed  to  be  the  intersection  of  it  and  the  operator. 

Implementation  Strategy 

DeleteCommand  —  Remove  the  desired  object  from  the  OperatorList  when 
it  is  removed  from  the  drawing.  This  may  mean  changing  the  generated  PSDL  as  well.  The 
operation  Delete  in  the  Drawing  class  must  be  nKxiified  to  accomplish  the  above  changes. 

Mo'.’eTool  —  When  the  user  chooses  to  move  a  single  object,  only  an  operator 
or  one  of  the  text  instances  can  be  selected.  If  a  subset  of  the  drawing  is  chosen,  then  aU 
chosen  objects  will  move.  When  an  operator  is  moved,  its  label,  its  MET  and  its  set  of  input 
and  output  data  flows,  their  labels  and  their  latencies,  must  also  moye.  This  involves 
changing  the  Move  operation  of  the  Drawing  class  to  move  these  objects  automatically. 

ReshapeTool  —  This  tool  was  used  to  change  the  shape  of  a  selected  object.  It 
will  now  be  used  to  edit  the  text  on  the  screen,  and  change  the  shape  of  a  data  flow  or  self 
loop.  Its  name  will  be  changed  to  ModifyTool.  The  user  must  not  be  allowed  to  choose 
an  operator  with  this  tool.  The  Reshape  operation  of  the  Drawing  class  must  change  the 
objects  in  the  OperatorList  when  these  modifications  are  made.  Its  name  must  be  changed 
to  Modify. 

ElIipseTool  —  Change  the  HandleEllipse  operation  in  the  Editor  class  to 
draw  an  ellipse  with  a  fixed  size  radius. 

SplineTool  —  This  tool  is  changed  to  determine  the  endpoints  of  a  spline  if  the 
spline  is  drawn  into  an  operator.  Its  new  endpoint  is  the  intersection  point  of  the  spline  and 
operator.  This  is  done  by  the  HandleSpIine  operation  in  the  Editor  class. 
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e.  Add  New  Tools 

Informal  Solution 

Add  PSDL 

Idraw’s  existing  tools  do  not  provide  all  of  the  functionality  needed  to  create  a 
DFD  and  its  associated  PSDL.  New  tools  will  be  added  to  make  the  graphic  editor  com¬ 
plete.  Add  new  tools  to  edit  the  partial  PSDL  generated  from  the  drawing.  Four  compo¬ 
nents  of  PSDL  will  be  generated  in  the  graphic  editor 

•  Specification  of  an  operator. 

•  The  graph  of  the  DFD  which  describes  the  vertices  and  the  edges  that  link 
the  vertices  together. 

•  The  data  streams  and  timers  of  the  DFD. 

•  The  control  constraints  and  informal  description  of  the  DFD. 

All  of  the  above  items,  except  the  operator  specification,  are  parts  of  the  PSDL 
implementation  component.  The  PSDL  graph  does  not  need  to  be  edited  because  it  can  be 
completely  generated  from  the  DFD. 

Use  a  syntax  directed  editor  to  edit  the  above  PSDL  components  to  insure  syn¬ 
tactically  correct  PSDL  without  making  the  user  remember  all  of  the  PSDL  syntax. 

Add  Text  Tools 

Add  new  tools  to  distinguish  between  the  different  types  of  text  needed  for  a 
DFD.  Four  tools  will  replace  the  Text  tool  to  add  the  following  kinds  of  text  to  the  DFD: 

•  The  label  of  any  of  the  DFD  components. 

•  The  maximum  execution  time  of  an  operator. 

•  The  latency  time  of  a  data  flow. 

•  Comments  made  to  aid  in  reading  the  DFD. 
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Add  Operator  Decompositjon 

Add  the  ability  to  decompose  an  operator  into  a  lower  level  DFD.  This  implies 
that  another  graphic  editor  must  be  executed  in  order  to  draw  the  lower  level  DFD.  If  the 
operators  are  at  their  lowest  level,  this  tool  must  also  be  able  to  generate  the  PSDL  imple¬ 
mentation  of  the  operator,  stating  its  Ada  implementation  name. 

Implementation  Strategy 

Figure  4.8  shows  the  new  IdrawTool  hierarchy,  shown  in  Figure  4.7,  with  the 
new  tools.  The  Editor  class  will  be  changed  to  add  interface  operations  for  each  of  the 
tools.  The  Drawing  class  will  be  modified  to  update  its  components  because  of  changes 
made  by  the  new  tools.  Each  of  the  tools  are  described  below. 

SpecifyTool  —  When  this  tool  is  chosen,  the  user  will  be  asked  to  select  an  op¬ 
erator  or  click  anywhere  else  in  the  drawing.  The  tool  interface  will  be  called  to  invoke  a 
syntax  directed  editor  to  edit  the  PSDL  specification  of  the  chosen  operator.  When  editing 
is  completed,  the  PSDL  specification  will  be  updated  in  design  database,  and  the  graphic 
editor  will  get  the  updated  PSDL. 

StreamsTool,  ConstraintsTool  —  When  this  tool  is  chosen,  a  window  con¬ 
taining  a  PSDL  syntax  directed  editor  will  open.  The  text  displayed  will  be  the  text  stored 
in  the  Drawing’s  streams_buffer  or  the  text  stored  in  the  Drawing’s  constraints_buffer. 
Once  editing  is  complete,  the  file  must  be  read  back  into  the  appropriate  text  buffer. 


Figure  4.8:  New  IdrawTool  Hierarchy 
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DecomposeTool  —  When  this  tool  is  chosen,  the  user  should  be  prompted  to  select  an 
operator.  A  dialog  box  should  appear  to  give  the  user  the  choice  of  decomposing  the 
operator  into  subcomponents,  to  search  the  software  base  for  matching  Ada  code,  or  to 
create  the  atomic  PSDL  implementation  of  the  operator.  If  the  user  chooses  to  decompose 
the  operator  into  suboperators,  another  CAPS  graphic  editor  should  open,  and  the  user  can 
draw  a  DFD  to  represent  the  parent  operator.  The  PSDL  that  was  generated  in  the  calling 
graphic  editor  for  the  decomposed  operator  should  be  the  same  PSDL  code  that  the  user 
sees  when  he  chooses  the  Specify  tool  to  edit  the  specification  of  the  drawing. 

If  the  user  chooses  to  create  the  atomic  PSDL  implementation  of  the  operator, 
the  following  PSDL  code  should  be  generated  automatically: 

IMPLEMENTATION  ADA  <operator_id> 

END 

The  <operator_id>  should  be  replaced  with  the  operator’s  label. 

LabelTool  —  When  this  tool  is  chosen,  the  user  should  be  asked  to  select  an 
object.  The  user  may  then  type  in  the  text.  The  label  should  be  placed  in  the  proper  place 
on  the  operator  and  should  be  added  to  the  OperatorList. 

METTool  —  When  this  tool  is  chosen,  uie  user  should  be  asked  to  select  an  op¬ 
erator.  The  user  can  then  type  in  the  time  and  its  units.  The  proper  units  are  milliseconds 
(ms),  seconds  (s),  minutes  (m),  or  hours  (h).  The  MET  should  be  placed  in  the  proper  place 
on  the  operator. 

LatencyTooI  —  When  this  tool  is  chosen,  the  user  should  be  asked  to  select  a 
data  flow.  The  user  can  then  type  in  the  maximum  allowed  delay  from  the  time  the  data  is 
written  into  the  flow  to  the  time  the  data  can  be  read  from  the  flow.  The  proper  units  are  the 
same  ones  listed  above.  The  latency  should  be  placed  on  the  data  flow. 
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/.Add  Ability  to  Rebuild  DFD  Data  Structure 

Informal  Solution 

Create  a  new  file  when  the  drawing  is  saved  to  write  extra  information  needed 
to  rebuild  the  DFD  data  structure.  When  the  drawing  is  reopened,  this  new  file  must  be 
read  to  rebuild  the  data  structure. 

Implementation  Strategy 

Change  the  Save  operation  in  the  Drawing  class  to  write  out  information  to  rep¬ 
resent  the  OperatorList  in  order  to  rebuild  it  when  the  drawing  is  edited.  Operations  are 
added  to  the  Drawing  class  to  accomplish  this  task.  The  operation  WriteDFDFiles  will 
be  added  to  write  the  following  files: 

•  PSDL  implementation  file. 

•  The  DFD  information  file. 

•  A  file  for  each  operator’s  PSDL  specification. 

The  PSDL  implementation  file  contains  the  PSDL  graph  generated  from  the 
drawing,  the  contents  of  the  streams_buffer,  and  the  contents  of  the  constraints_bulTer. 

The  DFD  information  file  contains  each  DFD  component,  its  position  in  the 
Drawing’s  list  of  Selections  (PictSelection),  and  the  position  in  PictSelection  of  the  com¬ 
ponent’s  operator. 

The  operator’s  specification  file  contains  the  contents  of  the  operator’s 
PSDL_buffer.  This  file  is  used  by  the  software  base  to  search  for  reusable  components  to 
match  the  operator. 

Change  the  Open  operation  in  the  Drawing  class  to  read  in  these  files  and  add¬ 
ed  to  the  proper  text  buffers  when  the  user  chooses  to  open  the  drawing. 
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g.  Add  Help  Information 

Informal  Solution 

Add  a  message  block  to  display  help  in  how  to  use  each  tool.  Each  tool  will 
display  a  message  in  this  block  when  selected.  This  block  may  also  be  used  to  give  help  in 
other  areas  as  needed. 

Implementation  Strategy 

Change  the  Idraw  constructor  to  draw  the  message  block  when  the  editor  is 
drawn  on  the  screen.  Change  the  Panel  class  to  store  the  value  of  each  tool’s  message  and 
update  the  message  block  whenever  a  new  tool  is  selected.  Modify  the  State  class  to  store 
the  current  message.  Change  the  StateView  class  to  keep  track  of  the  user’s  view  of  the 
message. 
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V.  USERS  MANUAL 


A.  INTRODUCTION 

The  Computer  Aided  Prototyping  System,  CAPS,  is  a  software  development  environ¬ 
ment  that  provides  a  means  to  rapidly  construct  an  executable  prototype  representing  a 
large  real-time  software  system  or  a  software  system  with  hard  real-time  constraints. 

A  window-oriented  user  interface  guides  the  user  through  the  rapid  prototyping  pro¬ 
cess.  The  interface  can  run  on  any  UNIX  workstation  that  uses  the  X  windowing  system. 

B.  GETTING  STARTED 

The  following  environment  variables  should  be  set: 

•  CAPS :  Directory  where  all  of  the  CAPS  subdirectories  can  be  found. 

•  PROTOTYPE:  Directory  where  prototypes  are  stored. 

•  TEMP:  Directory  where  temporary  files  are  stored. 

The  directory  $C APS/bin  must  be  added  to  the  user’s  path. 

Execute  CAPS  by  typing  "caps"  on  the  command  line  in  any  X  window.  By  default,  its 
main  menu  will  appear  in  the  upper  right  comer  of  the  screen.  Figure  5.1  shows  the  CAPS 
main  menu.  If  the  initial  menu  position  is  not  desirable,  it  may  be  repositioned  by  placing 
the  mouse  on  the  title  bar  of  the  menu  window  and  holding  down  the  middle  mouse  button. 
Then,  move  the  menu  to  the  desired  position  and  release  the  mouse  button. 

The  main  menu  is  made  up  of  push  buttons.  The  first  five  buttons  (from  left  to  right) 
control  the  functions  of  the  rapid  prototyping  process:  Edit,  Search,  Translate,  Compile, 
and  Execute.  The  Quit  button  is  used  to  exit  from  CAPS. 
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Figure  5.1:  CAPS  main  menu 

C.  CAPS  CONCEPTS 

1.  General 

CAPS  is  made  up  of  seven  tools:  graphic  editor,  software  base,  design  database, 
translator,  static  scheduler,  dynamic  scheduler,  and  Ada  compiler.  These  tools  are  used  to¬ 
gether  to  rapidly  construct  the  prototype. 

The  prototyping  life  cycle  begins  by  the  designer  drawing  or  editing  a  data  flow  di¬ 
agram  using  the  graphic  editor  producing  PSDL  code.  Then,  the  designer  uses  the  syntax 
directed  editor  to  create  specifications  for  the  operators  and  types.  The  designer  searches 
the  software  base  for  reusable  components  to  match  the  PSDL  specification  of  each  of  the 
operators.  The  PSDL  is  translated  into  Ada  using  the  translator,  static  scheduler,  and  dy¬ 
namic  scheduler.  The  Ada  code  is  compiled  to  make  an  executable  prototype.  The  last  step 
is  to  execute  the  prototype.  If  an  error  is  found  or  it  is  found  that  the  prototype  is  unaccept¬ 
able  at  any  of  these  stages,  the  designer  can  redo  any  or  all  of  the  steps. 

2.  Graphic  Editor  Concepts 

The  Graphic  Editor  is  used  to  draw  an  enhanced  DFD  and  produce  a  partial  PSDL 
representation  of  the  prototype.  Figure  5.2  shows  the  graphic  editor. 

An  enhanced  DFD  contains  operators  (bubbles),  data  flows  (arrows),  state  variables 
(self  loops),  and  the  text  associated  with  these  objects.  An  operator  has  a  label  and  may 
have  a  maximum  execution  time.  A  data  flow  has  a  label  and  may  have  a  latency.  Latency 
is  the  maximum  delay  of  the  data  flow.  A  state  variable  has  an  associated  label. 
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Figure  5.2:  Graphic  Editor 

D.  USING  CAPS 

The  user  interface  is  a  window  and  mouse  oriented  interface.  It  is  assumed  that  the  user 
is  familiar  with  the  X  Window  environment.  Consult  the  X  Windows  reference  manual  for 
more  information.  The  user  can  select  any  of  the  CAPS  functions  by  placing  the  mouse 
pointer  on  the  corresponding  menu  button  and  pressing  the  left  mouse  button. 
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After  a  function  has  been  selected,  a  pop  up  prototype  selecter  menu  will  appear 
which  lists  the  prototype  names  available  for  the  chosen  function.  To  select  one  of  the  pro¬ 
totypes,  place  the  mouse  pointer  over  the  prototype  name  and  click  the  left  mouse  button. 
To  create  a  new  prototype,  type  the  new  name  in  the  fi-ame  underneath  the  frame  containing 
all  of  the  existing  prototype  names.  Click  on  the  Cancel  button  and  no  function  will  be  per¬ 
formed.  Click  on  the  Select  button  and  the  function  will  be  executed  with  the  chosen  pro¬ 
totype  in  a  separate  window.  Figure  5.3  shows  the  prototype  selecter. 

To  exit  CAPS,  position  the  mouse  over  the  quit  button  and  click  with  the  left  mouse 
button.  This  will  terminate  the  program.  If  any  of  the  function  windows  are  open,  the  main 
menu  will  not  disappear  until  these  windows  disappear.  CAPS  can  be  iconified  by  position¬ 
ing  the  mouse  over  the  black  box  containing  a  white  cross  located  in  the  title  bar  of  the 
window  and  pressing  the  left  mouse  button.  The  main  menu  will  turn  into  an  icon.  By 
pressing  the  middle  mouse  button  inside  the  icon,  it  may  be  moved  and  placed  anywhere 
on  the  screen.  The  icon  can  be  opened  again  by  positioning  the  mouse  over  the  icon  and 
clicking  the  left  mouse  button 


Figure  5.3;  Prototype  Selecter 
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E.  USING  THE  GRAPHIC  EDITOR 


1.  Graphic  Editor  User  Interface 

The  graphic  editor  provides  drawing  tools  and  editing  commands  in  order  to  create 
or  modify  an  enhanced  DFD.  The  tools  are  located  on  the  left  side  of  the  drawing  area,  and 
the  commands  are  displayed  as  pull  down  menus  at  the  top  of  the  drawing  area. 

The  tools  are  run  by  placing  the  mouse  pointer  over  the  tool  button  and  clicking 
with  the  left  mouse  button.  To  use  the  commands,  the  DFD  components  to  be  modified 
must  first  be  selected  using  the  Select  tool.  Then,  the  pull  down  menu  that  contains  the 
command  is  activated  by  placing  the  mouse  pointer  over  the  menu  header  and  holding 
down  the  left  mouse  button.  Drag  the  mouse  pointer  to  the  desired  command  and  release 
the  left  mouse  button. 

2.  Tools 

a.  Select 

This  tool  is  used  to  mark  as  selected  those  objects  drawn  on  the  screen  that  will 
be  modified  by  another  tool  or  command.  Select  a  single  graphic  object,  or  select  more  than 
one  object  by  holding  down  the  left  mouse  button  and  dragging  the  mouse  cursor  until  each 
of  the  desired  objects  are  enclosed  in  the  resulting  rectangle. 

b.  Move 

This  tool  is  used  to  move  an  operator,  text  or  part  of  the  DFD.  A  data  flow  or 
state  cannot  be  moved  by  themselves.  If  an  operator  moves,  its  associated  objects  will 
move  with  it  Select  a  single  graphic  object,  and  move  the  object  by  holding  down  the  left 
mouse  button  and  dragging  the  mouse  cursor.  If  more  than  one  object  is  to  be  moved,  the 
object  tool  must  first  be  selected  using  the  Select  tool  above. 

c.  Modify 

This  tool  is  used  to  modify  the  shape  of  a  data  flow  or  state  variable,  or  edit  text. 
First  Select  the  object  to  be  modified.  A  data  flow  or  state  is  then  modified  by  placing  the 
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mouse  cursor  on  the  part  of  the  data  flow  to  be  modified.  Hold  down  the  left  mouse  button 
and  drag  the  mouse  cursor  till  the  modification  is  complete.  To  edit  text,  place  the  mouse 
cursor  on  the  part  of  the  text  to  be  changed  and  click  the  left  mouse  button.  Then,  edit  the 
text.  Text  can  be  added  by  typing  it  in,  and  text  can  be  deleted  by  pressing  the  delete  key 
on  the  keyboard. 

d.  Specify 

This  tool  is  used  to  edit  the  PSDL  specification  of  an  operator  or  the  entire  draw¬ 
ing.  Choose  an  operator  by  placing  the  mouse  cursor  on  the  operator,  or  choose  the  drawing 
by  placing  the  mouse  cursor  anywhere  else  in  the  drawing  area.  A  window  will  pop  up  in 
the  lower  right  hand  portion  of  the  screen.  In  the  current  version,  the  vi  editor  is  used  in  the 
window.  In  the  future,  this  editor  will  be  replaced  with  a  PSDL  syntax  directed  editor.  The 
PSDL  specification  generated  for  the  operator  or  drawing  will  appear  in  the  editor.  Text 
enclosed  in  "<"  and  ">"  may  be  replaced  with  the  proper  PSDL  syntax.  WARNING: 
Changing  identifiers  or  removing  inputs,  outputs  or  states  while  in  the  editor  can  result  in 
inconsistencies  between  the  PSDL  and  the  DFD.  These  should  be  changed  in  the  drawing, 
to  ensure  they  will  automatically  be  changed  in  the  PSDL. 

e.  Streams 

This  tool  is  used  to  edit  the  PSDL  streams  and  timers  associated  with  the  draw¬ 
ing.  Streams  are  those  data  flows  which  start  in  one  operator  and  end  in  another  one.  PSDL 
streams  are  automatically  generated  from  the  DFD.  Place  the  mouse  cursor  anywhere  on 
the  drawing  and  click  with  the  left  mouse  button,  and  a  window  will  pop  up  containing  an 
editor.  The  editor  contains  the  PSDL  just  described.  WARNING:  Changing  identifiers  or 
removing  streams  while  in  the  editor  can  result  in  inconsistencies  between  the  PSDL  and 
the  DFD.  These  should  be  changed  on  the  drawing,  to  ensure  they  will  automatically  be 
changed  in  the  PSDL. 
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/.  Constraints 

This  tool  is  used  to  edit  PSDL  control  constraints  and  informal  descriptions. 
These  are  not  generated  from  the  drawing.  Place  the  mouse  cursor  anywhere  on  the  draw¬ 
ing  and  click  with  the  left  mouse  button,  and  a  window  will  pop  up  with  an  editor. 

g.  Decompose 

This  tool  is  used  to  decompose  an  operator  into  a  lower  level  DFD.  First,  select 
an  operator.  The  prototype  will  automatically  be  saved.  A  dialog  box  will  pop  up  to  deter¬ 
mine  type  of  decomposition  desired.  The  following  choices  are  available: 

•  Graphic  Editor:  Another  graphic  editor  will  appear  and  the  lower  lev¬ 

el  DFD  may  be  drawn. 

•  Ada:  Generate  the  PSDL  declaration  for  an  Ada  imple¬ 

mentation  of  the  operator.  The  actual  Ada  code  must 
be  written  by  the  user. 

•  Search:  Generate  the  PSDL  declaration  for  an  Ada  imple¬ 

mentation  of  the  operator  and  search  the  software 
base  for  a  reusable  component  to  match  the  PSDL 
specification  of  the  operator. 

h.  Comment 

This  tool  is  used  to  add  comments  anywhere  on  the  drawing.  It  used  by  placing 
the  mouse  cursor  where  the  text  is  to  be  located  and  clicking  with  the  left  mouse  button, 
and  typing  in  the  text. 

1.  Label 

This  tool  is  used  to  add  a  label  to  any  of  the  DFD  components.  Choose  the  de¬ 
sired  component,  and,  then,  type  in  the  label.  It  must  be  a  legal  Ada  identifier.  If  it  contains 
blanks  or  newlines,  these  will  be  removed  before  adding  the  label  to  the  PSDL  representing 
the  operator.  When  finished,  place  the  mouse  cursor  outside  the  DFD  components  and 
click  with  the  left  mouse  button.  The  label  will  be  centered  relative  to  the  chosen  compo¬ 
nent. 
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j.  MET 

This  tool  is  used  to  add  a  maximum  execution  time  (MET)  to  an  operator.  Select 
the  desired  operator,  and,  then  type  in  the  MET.  It  must  be  an  integer  followed  by  one  of 
the  following  units:  ms,  sec,  min,  or  hours.  When  finished,  click  outside  the  operator  and 
the  MET  will  be  placed  on  top  of  the  operator. 

k.  Latency 

This  tool  is  used  to  add  a  latency  to  a  data  flow.  Latency  refers  to  the  maximum 
possible  delay  between  the  time  data  is  written  into  the  stream  and  the  time  data  is  read  from 
the  stream.  Choose  the  desired  data  flow,  and,  then,  type  in  the  latency.  It  must  be  an  in¬ 
teger  followed  by  one  of  the  following  units:  ms,  sec,  nun,  or  hours.  When  finished,  click 
outside  the  data  flow  and  the  latency  will  be  placed  on  top  of  the  data  flow’s  label.  If  there 
is  no  label,  it  is  placed  on  the  top  and  centered  on  the  data  flow. 

/.  Data  Flow 

This  tool  is  used  to  draw  a  (kiia  flow  or  state  variable.  At  least  one  end  point  of 
a  data  flow  must  be  inside  of  an  operator.  Both  endpoints  of  a  state  variable  must  be  inside 
the  same  operator.  First,  choose  where  the  data  flow  is  to  begin.  If  the  data  flow  is  to  be 
curved,  place  the  mouse  cursor  where  those  curves  are  to  be  and  click  with  the  left  mouse 
button.  Choose  where  the  data  flow  is  to  end.  If  an  endpoint  is  in  an  operator,  the  endpoint 
will  automatically  be  changed  to  be  the  intersection  of  the  operator  and  the  spline. 

m.  Operator 

This  tool  is  used  to  draw  an  operator.  The  radius  of  the  operator  will  be  35  pix¬ 
els.  Choose  where  the  center  of  the  operator  is  to  appear. 

3.  Commands 

Several  editing  commands  are  provided  via  pull  down  menus.  The  types  of  com¬ 
mands  available  are  described  below. 
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a.  Prototype 

This  pull  down  menu  present  prototype  operations.  The  following  operations 
are  available: 

•  Open  a  prototype’s  drawing. 

•  Save  under  the  existing  prototype  name. 

•  Save  as  a  different  prototype  name. 

•  Print  the  prototype’s  DFD. 

•  Quit  the  editor. 

b.  Edit 

This  pull  down  menu  presents  editing  operations.  The  following  are  available: 

•  Delete  a  selected  object. 

•  Select  All  objects  in  the  drawing. 

c.  Font 

This  pull  down  menu  presents  a  list  of  fonts  to  be  used  for  the  text  in  the  draw¬ 
ing.  Only  the  selected  text  will  use  the  chosen  font 

d.  Pattern 

This  pull  down  menu  presents  a  list  of  patterns  for  the  selected  graphic  objects. 
Only  the  selected  objects  will  use  the  chosen  pattern. 

e.  Color 

This  pull  down  menu  presents  a  list  of  foreground  and  background  colors  for  the 
selected  graphic  objects. 

/.  Align 

This  pull  down  menu  presents  alignment  options  such  as  aligning  left  sides  of 
selected  objects,  and  aligning  centers  of  selected  objects. 
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g.  Options 

This  pull  down  menu  presents  various  options  to  aid  in  putting  the  drawing  on 
the  page,  such  as  reducing  drawing  to  fit  on  one  page,  centering  drawing  to  the  page,  and 
providing  a  grid. 

F.  USING  OTHER  CAPS  FUNCTIONS 

1.  Search 

This  function  is  used  to  search  the  software  base  for  reusable  components  that 
match  each  operator  in  the  data  flow  diagram  drawn  in  the  graphic  editor.  Work  is  currently 
being  done  to  implement  the  software  base.  Once  the  function  is  chosen,  a  separate  win¬ 
dow  will  appear  which  contains  the  message  " —  the  Search  function  has  not  been  imple¬ 
mented  — ".  This  window  will  disappear  in  10  seconds.  Once  the  software  base  is 
developed,  this  interaction  will  change  to  perform  the  research. 

2.  Translate 

The  PSDL  created  in  the  graphic  editor  is  translated  into  Ada  code  by  the  Translate 
function.  Once  this  function  is  chosen,  a  separate  window  will  appear  which  executes  the 
Translator,  Static  Scheduler,  and  the  Dynamic  Scheduler.  Messages  will  appear  in  the 
window  indicating  which  tool  is  running.  Also,  any  messages  produced  by  the  particular 
tool  will  also  be  shown  in  the  window.  The  window  will  stay  up  for  10  seconds  after  all  of 
these  tools  have  been  run  to  allow  the  user  to  fmish  reading  all  of  the  messages  provided. 

3.  Compile 

This  function  is  used  to  compile  the  reusable  components  found  during  the  search 
process  and  the  Ada  code  produced  during  the  translate  process.  Once  this  function  is  cho¬ 
sen,  messages  will  appear  in  the  window  and  display  messages  while  the  system  copies 
needed  files  to  the  current  directory  and  executes  the  Verdix  Ada  compiler  to  compile  all 
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of  the  reusable  components,  and  the  output  of  the  translator,  static  scheduler,  and  dynamic 
scheduler.  Messages  will  appear  in  the  window  to  inform  the  user  of  what  is  being  done. 
The  window  will  stay  up  for  10  seconds  after  the  compiler  has  been  run  to  allow  the  user 
to  finish  reading  all  of  the  messages  provided. 

4.  Execute 

The  prototype  is  executed  by  the  Execute  function.  The  output  of  the  compilation 
process  is  used  as  input  to  this  function.  Once  the  function  is  chosen,  a  separate  window 
will  appear  which  is  the  acmal  execution  of  the  prototype.  All  input  and  output  will  be  done 
in  this  window.  The  mouse  must  be  in  the  window  to  allow  any  input  to  be  done.  To  end 
the  execution  and  make  the  window  disappear,  the  user  must  hit  the  "ctrl"  and  "c"  keys  si¬ 
multaneously. 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  SUMMARY 

The  goal  of  this  research  is  to  develop  a  user  interface,  tool  interface  and  graphic  editor 
for  CAPS.  The  user  interface  and  tool  interface  integrates  all  of  the  tools  of  CAPS  to  pro¬ 
vide  a  user  friendly  environment.  The  graphic  editor  constructs  a  graphical  representation 
of  the  prototype. 

The  user  interface  guides  the  user  through  the  rapid  prototyping  process.  It  is  able  to 
run  each  of  the  CAPS  tools  concurrently  and  to  work  with  more  than  one  version  of  a  pro¬ 
totype  during  a  session. 

The  tool  interface  provides  a  consistent  means  of  calling  the  CAPS  tools.  It  provides 
communication  between  the  CAPS  tools  and  between  the  user  and  the  CAPS  tools  while 
being  completely  hidden  from  the  user.  The  creation  of  the  tool  interface  was  a  first  at¬ 
tempt  at  developing  a  manager  for  the  CAPS  tools.  Some  recommendations  for  its  im¬ 
provement  arc  listed  in  Section  B. 

The  graphic  editor  handles  all  editing  of  the  prototype.  It  provides  many  user  friendly 
features,  such  as  moving  objects  associated  with  an  operator  when  the  operator  is  moved 
and  updating  the  PSDL  associated  with  an  operator  when  one  of  its  associated  objects  is 
modified  or  deleted.  The  graphic  editor  also  automatically  generates  a  PSDL  representa¬ 
tion  of  the  prototype.  The  syntax  directed  editor  has  not  been  created  for  the  need  of  the 
graphic  editor.  The  current  implementation  provides  "vi"  editors  instead.  The  interface  to 
the  vi  editor  has  been  handled  in  such  a  way  that  replacing  vi  with  another  editor  can  be 
done  easily. 
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B.  RECOMMENDATIONS  FOR  FURTHER  WORK 


1.  Tool  Interface 

a.  Integrating  Interface  Functions 

Throughout  this  thesis,  the  tool  interface  is  described  as  a  separate  program.  It 
is  currently  a  set  of  C  functions  called  from  the  user  interface.  These  functions  create  the 
proper  input  file  names  from  the  given  prototype  name  and  fork  a  process  to  open  an  X 
terminal  window  to  execute  the  proper  tool  or  tools.  If  more  than  one  tool  is  chosen  to  run, 
the  tool  interface  builds  a  shell  script  to  execute  them  in  succession.  A  separate  program 
needs  to  be  written  to  implement  the  tool  interface.  The  design  given  in  Chapter  IV  should 
be  used  to  create  this  program. 

b.  Integrating  the  Design  Database 

A  pseudo  design  database  was  set  up  to  store  the  files  needed  for  CAPS  in  a  di¬ 
rectory  of  prototypes.  When  a  design  database  is  implemented,  a  set  of  commands  should 
be  developed  to  provide  a  means  of  communication  between  the  tool  interface  and  the  da¬ 
tabase.  This  communication  should  be  oriented  toward  retrieving  and  updating  files  need¬ 
ed  by  the  tools.  The  following  is  a  list  of  the  files  currently  needed  by  the  tools.  The 
extensions  of  the  files  are  shown  in  parenthesis. 

from  the  graphic  editor 

•  The  drawing  in  post  script  format  (.ps). 

•  The  drawing’s  PSDL  specification  (.spec.psdl). 

•  The  drawing’s  PSDL  implementation  (.imp.psdl). 

•  The  drawing’s  graph  information  (.graph). 

•  PSDL  specification  for  each  of  the  operators  at  that  level 
(.op_name.spec.psdl). 

When  an  operator  is  decomposed  in  the  graphic  editor,  a  new  drawing  is  creat¬ 
ed.  The  files  stated  above  are  generated  for  each  operator’s  decomposition. 
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from  the  software  base 


•  Reusable  components  (.sb.a). 

If  a  reusable  component  cannot  be  found  in  the  software  base  to  match  an  oper¬ 
ator’s  specification,  the  design  database  should  store  the  Ada  component  directly  written 
by  the  designer. 

from  translator 

•  Ada  translation  of  prototype  (.tl.a). 

from  static  scheduler 

•  List  of  composite  and  atomic  operators  (.op.info). 

•  List  of  atomic  operators  (.atomic.info). 

•  List  of  non-critical  operators  (.non.crits). 

•  Ada  program  which  controls  execution  of  operators  with  timing  constraints 
(.ss.a). 

from  dynamic  scheduler 

•  Ada  program  which  contains  dynamic  schedule  (.ds.a). 

from  the  compiler 

•  The  executable  prototype  (.proto). 

2.  Graphic  Editor 

The  graphic  editor  was  designed  to  be  user  friendly  and  perform  as  many  functions 
as  needed  to  draw  a  DFD.  There  are  still  some  areas  that  need  to  be  worked  on  in  order  to 
complete  the  graphic  editor. 

a.  Syntax  Directed  Editor 

A  syntax  directed  editor  was  created  by  Laura  White  [Ref.  5]  which  supports 
the  complete  PSDL  grammar.  Following  the  current  design,  several  smaller  syntax  direct¬ 
ed  editors  should  be  created  and  linked  into  the  graphic  editor.  The  tools  that  need  to  use 
these  editors  are  listed  below. 
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•  An  editor  containing  the  PSDL  operator  specification  should  be  linked 
to  the  Specify  tool. 

•  An  editor  containing  the  PSDL  streams  and  timers  should  be  linked  to 
the  Streams  tool. 

•  An  editor  containing  the  PSDL  control  constraints  and  informal  description 
should  be  linked  to  the  Constraints  tool. 

It  is  recommended  that  the  graphic  editor  call  the  tool  interface  to  execute  these 
editors.  This  would  provide  consistency  in  the  calling  of  all  CAPS  tools  and  would  make 
it  easier  for  these  editors  to  be  called  from  other  tools  in  the  future. 

b.  Consistency  Checks 

Work  needs  to  be  done  to  perform  consistency  checks  in  the  graphic  editor.  If 
PSDL  is  changed  in  a  syntax  directed  editor,  it  should  be  checked  to  make  sure  that  the 
drawing  was  not  effected.  For  example,  if  the  identifier  of  an  operator  is  changed  in  the 
PSDL,  the  label  on  the  operator  in  the  drawing  should  be  changed  accordingly.  If  an  input, 
output,  or  state  is  removed  in  the  PSDL,  it  should  be  removed  from  the  drawing.  Before 
the  drawing  is  changed  in  either  of  these  cases,  the  user  should  be  asked  if  he  really  meant 
for  this  modification  to  take  place. 

When  decomposing,  the  inputs,  outputs,  and  states  of  the  operator  must  appear 
in  the  decomposed  picture.  These  should  appear  in  the  picture  automatically  when  the  de¬ 
composed  picture  is  opened  the  first  time. 

c.  Modify  Tool 

Currently,  the  Modify  tool  can  be  used  to  change  the  shape  of  a  spline  or  edit 
text  in  the  drawing.  Another  function  of  this  tool  should  be  to  move  the  endpoint  of  a  data 
flow  from: 


one  operator  to  another 
an  operator  to  no  operator 
no  operator  to  an  operator. 
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d.  Abstract  Data  Types 

The  PSDL  language  provides  a  PSDL  type  construct  which  represents  an  ab¬ 
stract  data  type.  This  language  facility  is  not  implemented  in  the  current  version  of  the 
graphic  editor  so  that  the  PSDL  type  component  cannot  be  generated  by  the  graphic  editor. 

C.  CONCLUSIONS 

CAPS  demonstrates  the  capability  to  rapidly  construct  a  prototype  of  a  large  real-time 
system.  The  changes  made  to  the  CAPS  user  interface  as  a  result  of  this  thesis  have  made 
CAPS  into  a  truly  usable  tool.  An  example  prototype  of  a  Command,  Control,  Communi¬ 
cation  and  Intelligence  System  [Ref.  19]  has  been  used  to  exercise  the  CAPS  tools  success¬ 
fully.  Future  applications  of  the  CAPS  user  interface  and  its  interface  tools  should  provide 
more  statistical  evidence  of  productivity  improvements  and  demonstrate  the  benefits  of 
computer  aided  design  tools  in  software  development. 
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APPENDIX  A 

CAPS  INTERFACE  ESSENTIAL  MODEL 

ENVIRONMENTAL  MODEL 
STATEMENT  OF  PURPOSE 

The  purpose  of  the  CAPS  interface  is  to  establish  a  software  development  environ¬ 
ment  that  will  provide  the  designer  with  a  means  of  constructing  a  prototype.  This  interface 
will  allow  the  designer  to  have  access  to  a  coordinated  set  of  tools  that  support  the  devel¬ 
opment  of  the  prototype. 

This  environment  consists  of  five  levels.  The  innermost  level  contains  the  host  op¬ 
erating  system.  The  next  level  contains  X-Windows,  a  windowing  system.  Above  X-Win- 
dows  lies  Interviews,  a  user  interface  toolkit.  The  next  level  contains  the  set  of  tools  that 
will  build  the  executable  prototype.  The  outtr  level  contains  the  user  interface  which  pro¬ 
vides  a  user  view  of  all  of  the  tools. 
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EVENT  LIST 


•  Designer  chooses  to  create  a  new  dataflow  diagram. 

•  Designer  chooses  to  modify  a  current  dataflow  diagram. 

•  Designer  chooses  to  generate  PSDL  in  text  mode. 

•  Designer  chooses  to  generate  the  dataflow  diagram  in  graphic  mode. 

•  Designer  draws  the  dataflow  diagram  using  the  graphical  editor. 

•  Designer  creates  the  PSDL  view  of  the  prototype  in  the  syntax  directed  editor. 

•  Designer  chooses  to  search  for  reusable  components  corresponding  to  the  PSDL  view 
of  the  prototype. 

•  Designer  chooses  to  translate  the  PSDL  view  of  the  prototype  into  Ada  code. 

•  Designer  chooses  to  compile  the  Ada  code  for  the  PSDL  view  of  the  prototype. 

•  Designer  chooses  to  execute  the  prototype. 

•  Graphical  editor  produces  part  of  the  PSDL  view  of  the  prototype  using  the  graphical 
representation  of  the  dataflow  diagram. 

•  Syntax-directed  editor  produces  the  complete  PSDL  view  of  the  prototype  using  the 
textual  representation  of  the  dataflow  diagram. 

•  Software  base  finds  a  reusable  component  based  on  the  PSDL  view  of  the  prototype. 

•  Translator  creates  an  Ada  program  which  contains  the  atomic  description  of  the  PSDL 
operators. 

•  Static  scheduler  creates  an  Ada  program  with  real  time  constraints  using  the  PSDL  view 
of  the  prototype. 

•  Dynamic  scheduler  creates  the  complete  Ada  program  using  the  outputs  from  the  static 
scheduler  and  the  translator. 

•  Ada  compiler  produces  the  executable  view  of  the  prototype. 

•  The  prototype  is  executed. 

•  Design  database  stores  prototype. 

•  Design  database  outputs  stored  prototype. 
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CAPS  INTERFACE  CONTEXT  DIAGRAM 


BEHAVIORAL  MODEL 


DATA  DICTIONARY 

ATOMIC  INFORMATION  =  *  atomic  description  of  PSDL  operators  that  was 
constructed  using  reusable  components  * 

COMPILE  =  *  option  to  compile  code  generated  by  translator  which  corresponds  to 
prototype  * 

COMPLETE  ADA  PROGRAM  =  ATOMIC  INFORMATION  +  STATIC 
SCHEDULE 

DFD  =  *  graphic  file  containing  dataflow  diagram  of  prototype  ♦ 

EDIT  =  *  option  to  edit  prototype  * 

EDITOR_MENU  =  *  display  editor  choices  to  user  * 

EXECUTABLE  PROTOTYPE  =  *  file  containing  compiled  ADA  program  that  is  ready 
for  execution  * 

EXECUTE  =  *  option  to  execute  prototype  * 

EXISTING  PROTOTYPE  DESIGN  =  DFD  +  PSDL 

GRAPHIC_EDITOR  =  *  option  to  run  graphic  editor  * 

MAIN_MENU  =  *  display  CAPS  options  to  user  * 

MENU_DISPLAYS  =  MAINMENU  +  EDITOR_MENU  + 
PROTOTYPE_NAME_CHOICES  _MENU 

PROTOTYPE_NAME  =  ♦  name  of  prototype  that  user  will  work  with  ♦ 

PROTOTYPE_NAME_CHOICES_MENU  =  *  display  prototype  names  to  user  from 
which  he  can  choose  * 

PSDL  =  *  file  containing  prototype  system  design  language  representation  of  dataflow 
diagram  * 

REUSABLE  COMPONENTS  =  *  reusable  ADA  nxxlules  * 

SEARCH  =  *  option  to  search  design  database  for  reusable  components  corresponding  to 
prototype  * 
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SELECTION  =  [EDIT  I  SEARCH  I  TRANSLATE  I  COMPILE  I  EXECUTE] 

STATIC  SCHEDULE  =  *  ADA  source  code  containing  procedures  and  functions 
describing  prototype  * 

SYNTAX_DIRECTED_EDITOR  =  *  option  to  run  syntax  directed  editor  * 

TOOL_CHOICE  =  [GRAPHIC  EDITOR  I  SYNTAX_DIRECTED_EDITOR  I 
SEARCHI  TRANSLATE  I  COMPILE  I  EXECUTE] 

TRANSLATE  =  *  option  to  translate  prototype  into  code  * 

USERDIALOGUE/RESPONSE  =  MENU_DISPLAYS  +  SELECTION 
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syntax 

directed 

editor 
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CAPS  INTERFACE  DATA  FLOW  DIAGRAM 
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PROCESS  SPECIFICATIONS 

PROCESS  1.1:  DISPLAY  PROTOTYPING  FUNCTION  CHOICES 
BEGIN 

Display  MAIN_MENU 
set  SELECTION  to  menu  item  chosen 
END 

PROCESS  1.2:  ACCEPT  CHOICE 
BEGIN 

IF  SELECTION  is  EDIT 
Display  EDITOR_MENU 
IF  GRAPHIC  EDITOR  chosen 

set  TOOLCHOICE  to  GRAPHIC_EDITOR 
ELSE 

set  TOOL_CHOICE  to  SYNTAX_DIRECTED_EDrrOR 
ENDIF 
ELSE 

set  TOOL_CHOICE  to  SELECTION 
ENDIF 
END 


76 


PROCESS  1.3:  ENTER  PROTOTYPE  NAME 
BEGIN 

display  PROTOTYPE_NAME_CHOICES_MENU  depending  on 
TOOL_CHOICE  chosen 
set  PROTOTYPE_NAME  to  name  chosen 
END 

PROCESS  2:  TOOL  INTERFACE 
BEGIN 

PROCESS  IN  PARALLEL: 

TOOL.CHOICE  =  GRAPHIC_EDITOR: 

retrieve  PSDL  file  using  PROTOTYPE_NAME 

run  GRAPHIC  EDITOR  using  PSDL  file  and  DFD  file  as  input  and  receiving 
PSDL  file  and  DFD  file  as  output 
TOOL_CHOICE  =  SYNTAX_DIRECTED_EDITOR: 
retrieve  PSDL  file  using  PROTOTYPE_NAME 

run  SYNTAX  DIRECTED  EDITOR  using  PSDL  file  as  input  and  receiving 
PSDL  file  as  output 
TOOL_CHOICE  =  SEARCH: 

retrieve  PSDL  file  using  PROTOTYPE_NAME 

run  SOFTWARE  BASE  using  PSDL  file  as  input  and  receiving  REUSABLE 
COMPONENTS  file  as  output 


TOOL_CHOICE  =  TRANSLATE: 
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retrieve  PSDL  file  and  REUSABLE  COMPONENTS  file  using  PROTO- 
TYPE_NAME 

run  TRANSLATOR  using  PSDL  file  and  REUSABLE  COMPONENTS  file  as 
input  and  receiving  ATOMIC  INFORMATION  file  as  output 
run  STATIC  SCHEDULER  using  PSDL  file  and  REUSABLE  COMPONENTS 
file  as  input  and  receiving  STATIC  SCHECULE  file  as  output 
run  DYNAMIC  SCHEDULER  using  ATOMIC  INFORMATION  file  and 
STATIC  SCHEDULE  file  as  input  and  receiving  COMPLETE  ADA  PRO¬ 
GRAM  file  as  output 
TOOL_CHOICE  =  COMPILE: 

retrieve  COMPLETE  ADA  PROGRAM  file  using  PROTOTYPE_NAME 
run  ADA  COMPILER  using  COMPLETE  ADA  PROGRAM  file  as  input  and 
receiving  EXECUTABLE  PROTOTYPE  file  as  output 
TOOL_CHOICE  =  EXECUTE: 

retrieve  EXECUTABLE  PROTOTYPE  file  using  PROTOTYPE_NAME 
run  EXECUTABLE  PROTOTYPE 
END  IF 
END 
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APPENDIX  B 
PSDL  GRAMMAR 


This  grammar  is  provided  by  Professor  Luqi,  Naval  Postgraduate  School  in  Monterey, 
California. 

Optional  items  are  enclosed  in  [  square  brackets  ].  Items  which  may  appear  zero  or  more 
times  appear  in  {  braces  }.  Terminal  symbols  appear  in  "  double  quotes  Groupings 
appear  in  ( parentheses ). 


psdl 

=  {component} 

component 

=  data_type 
I  operator 

data_type 

=  "type"  id  type_spec  type_impl 
type_spec 

=  "specification"  ["generic"  type_decl]  [type_decl] 
{"operator"  id  operator_spec } 

[functionality]  "end" 


operator 

=  "operator"  id  operator_spec  Of)erator_impl 
operator_spec 

=  "specification"  [interface)  [functionality]  "end" 
interface 

=  attribute  [reqmts_trace] 
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attribute 

=  "generic"  type_decl 
I  "input"  type_decl 
I  "output"  typc_decl 

I  "states"  type_decl  "initially"  initial_exprcssion_list 
I  "exceptions"  id_list 
I  "maximum  execution  time"  time 

type_decl 

=  id_list ":"  type_name  id_list type_name} 

type_name 
=  id 

I  id  "["  type.decl "]" 


id_list 

=  id  {","  id} 
reqmts_trace 

=  "by  requirements"  id_list 
functionality 

=  [keywords]  [informal_descJ  [formal_desc] 
keywords 

=  "keywords"  id_list 

informal_desc 

=  "description" "{"  text ")" 

formal_desc 

f  •»  Mill 

=  axioms  (  text  ) 


type_impl 

=  "implementation  ada"  id  "end" 

I  "implementation"  type_name  ("operator"  id  operator_impl }  "end" 
operator_impl 

=  "implementation  ada"  id  "end" 

I  "implementation"  psdljmpl  "end" 

psdl_impl 

=  data_flow_diagram  [streams]  [timers]  [control_constraints] 
[informal_desc] 
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data_flow_diagram 

=  "graph"  {vertex}  (edge) 


vertex 

=  "vertex"  op_id  [":"  time] 

—  time  is  the  maximum  execution  time 


edge 


=  "edge"  id  time]  op_id  "->"  op_id 
-  time  is  the  latency 


op_id 

=  id  ["("  [idjist]  "I"  [idjist] ")"] 


streams 

=  "data  stream"  type_decl 


timers 

=  "timer"  idjist 
control_constraints 

=  "control  constraints"  constraint  (constraint) 

constraint 

=  "operator"  op_id 

["triggered"  [trigger]  ["if'  expression]  [reqmts_trace]] 
["period"  time  [reqmts_trace]] 

["finish  within"  time  [reqmts_trace]] 

["minimum  calling  period"  time  [reqmts_trace]] 
["maximum  response  time"  time  [reqmts_trace]] 

{ constraint_options } 

constraint_options 

=  "output"  id_list  "if  expression  [reqmts_trace] 

I  "exception"  id  ["if  expression]  [ieqmts_trace] 

I  timer_op  id  ["if  expression]  [reqmts_trace] 


trigger 

=  "by  all"  idjist 
I  "by  some"  id_list 

timer_op 

=  "reset  timer" 

I  "start  timer" 

I  "stop  timer" 
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initial_expression_list 

=  initial_expression  initial_expression } 

initial_expression 
=  "true" 

I  "false" 

I  integerjiteral 
I  real_literal 
I  string_literal 
lid 

I  type_name  id  ["("  initial_expression_list ")"] 
I "("  initial_expression ")" 

I  inidal.expression  binary_op  initial_expression 
I  unary_op  initial_exprcssion 


binary_op 

=  "and"  I  "or"  I  "xor" 

I  tf^l!  I  ll^n  I  I  _ (t  I  11^ _ t»  I  ly _ II 

1  I  I  I  I  ••/>•  I  -niod"  I  "rem"  I  "**" 


unary_op 

=  "not"  I  "abs"  I  I "+" 


time 

« integer_literal  unit 
unit 

=  "microsec" 

III _ If 

ms 

I "sec" 

I  "min" 

I  "hours" 


expression_list 

=  expression  expression) 
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expression 

=  "true" 

I  "false" 

I  integer_literal 
I  time 

I  realjiteral 
I  string_literal 
lid 

I  type_name  id  ["("  initial_expression_list ")"] 
!  "("  expression ")" 

i  initial_expression  binary_op  initial_expression 
I  unary _op  initial_expression 


id 

=  letter  (alpha_numeric) 

real_literal 

=  integer integer 

integer_literal 

=  digit  {digit} 

string_literal 

= . (char) . 

char 

=  any  printable  character  except ")" 

digit 

=  "0 ..  9" 

letter 

=  "a ..  z" 

I  "A  ..  Z" 


alpha_numberic 
=  letter 
I  digit 


text 

=  (char) 
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APPENDIX  C 

CAPS  INTERFACE  PROGRAMMERS  MANUAL 


A.  CAPS  INTERFACE  FILES 

The  page  numbers  listed  in  the  file  descriptions  indicate  where  to  find  these  files  in  this 
thesis. 


1.  User  Interface 


caps_defs.h: 


caps_main_nienu.h: 

caps_niain_nienu.c: 

main.c; 

$electer.h: 

selecter.c: 


Defines  global  variables  needed  by  user  interface  and  tool 
interface.  These  variables  store  the  environment  vari¬ 
ables.  (p.  92) 

Qass  description  for  caps_main_menu  class,  (p.  93) 
Implementation  for  caps_main_menu  class,  (p.  94) 

User  interface  driver.  (p.lOl) 

Class  description  for  Selecter  class,  (p.  102) 
Implementation  for  Selecter  class,  (p.  103) 


2.  Design  Database 


design_db.c:  Locates  all  files  that  can  be  used  by  given  function  in  the 

given  directory  and  returns  them  in  a  array  of  strings,  (p. 
99) 


3.T00I  Interface 

build_scripts.c:  Builds  script  files  needed  more  than  1  CAPS  tool  that  cor¬ 

responds  to  the  given  function,  (p.  87) 

tool_interface.c:  Executes  CAPS  tools  based  on  given  function,  (p.  106) 
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B.  GUIDELINES  FOR  FUTURE  CHANGES 


1.  User  Interface 

The  menu  is  created  and  displayed  in  the  Init  function  in  caps_main_menu.c.  Each 
of  the  push  buttons  in  the  menu  are  created  to  be  .8  inches  in  size.  If  this  size  is  changed, 
the  font  of  the  button  labels  will  also  need  to  be  changed.  This  font  is  defined  in  main.c  as 
an  X  resource. 

The  prototype  selector  dialog  box  is  created  and  displayed  in  the  perform_but- 
ton_function  in  caps_inain_nienu.c.  It  calls  the  Selecter  constructor  to  create  the  box. 
It  calls  find_prototype_^nanies  in  design_database.c  to  retrieve  the  names  of  the  proto¬ 
types  available  for  the  chosen  function.  The  box  is  displayed  by  the  Insert  function  in  se- 
lecter.c.  Perform_button_function  must  be  changed  when  the  G\PS  design  database  is 
implemented. 

Perfonn_^button_function  also  calls  the  functions  in  tooijnterface.c  to  execute 
the  desired  prototyping  function.  This  function  must  be  changed  when  the  tool  interface 
becomes  a  separate  program,  instead  of  a  file  of  functions. 

The  Selecter  class  is  based  on  the  Finder  class  in  dialogbox.h  that  was  sup¬ 
plied  with  Idraw.  Selecter  displays  a  list  of  strings  and  should  not  have  to  change  when 
the  design  database  is  implemented.  If  it  is  decided  that  the  Selecter  should  display  proto¬ 
type  names,  and  after  a  name  is  chosen,  it  should  show  all  the  operators  associated  with  that 
prototype,  the  Insert  function  in  selecterx  will  have  to  change. 

2.  Design  Database 

The  extension  of  the  files  that  are  associated  with  a  function  are  hard  coded  in  the 
function  deflne_extension  in  design_db.c.  The  function  names  are  also  hard  coded  in  this 
function. 


85 


3.  Tool  Interface 

The  functions  in  build_scripts.c  build  shell  scripts  for  executing  CAPS  tools.  The 
niake_translate_script  function  executes: 

•  translator 

•  pre_ss 

•  decomposer 

•  static_scheduler 

•  dynaiiuc_scheduler. 

The  make_compile_script  executes  a.make  to  compile  the  sb.a,  tl.a,  ds.a,  ss.a,  pri- 
ority_defs.a,  vstring_spec.a,  vstring_body.a,  timer.a,  psd]_streams.a,  glob_dec.a,  and  ds_- 
debugv2.a.  All  of  these  files  that  are  not  specific  to  the  given  prototype  can  be  found  in  the 
translator  or  static  scheduler  source  directories.  All  files  are  copied  from  its  directory  to 
the  current  directory  because  the  Ada  compiler  needs  them  in  the  current  directory  in  order 
to  compile  them. 

The  functions  in  tooIjnterface.c  use  the  function  system  to  create  an  xterm  win¬ 
dow  to  execute  the  tool  or  tools.  The  geometry  for  each  of  the  xterm  windows  is  set  in  the 
corresponding  function  in  this  file. 
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C.  CODE 


/* 

*  file: 

*  description: 

* 

*  written  by: 
*/ 


build_scripts . c 

builds  shell  scripts  to  execute  translate  and 
conpile  functions 
Mary  Ann  Cummings 


♦include  "caps_defs.h" 

♦include  <stdio.h> 

♦include  <string.h> 

♦define  MAX_EXT_LEN  8 

void  make_filename (char*,  char*,  char*,  const  char*); 

void  make_translate_script (char*  prototype_name)  ( 
FILE*  script_file; 


/* 

*  define  character  string  constants 
*/ 

char*  options  “  "-o"; 

char*  translator  -  "bin/translator"; 

char*  pre_ss  ■  "bin/pre_ss"; 

char*  decon^oser  =  "bin/decoit^oser"; 

char*  static_scheduler  =  "bin/static_scheduler"; 

char*  dynamic_scheduler  =  ”bin/dynamic_scheduler"; 

int  filename_len  =  strlen (prototype_dir)  +  strlen (prototype_name)  + 

MAX_EXT_LEN  +  1; 

char*  script_filename  =  new  char  [filename_len] ; 
char*  input_f ilename  *  new  char  [filename_len] ; 
char*  output_f ilename  =  new  char  [filename_len] ; 
make_filename (script_filename,  prototype_dir,  prototype_name, 

" . tscript" ) ; 

script_file  =  f open (script_f ilename,  "w"); 

/* 

*  build  translate  script  file 
*/ 


/* 

*  build  translator  command 
*/ 


make_f ilename (input_f ilename,  prototype_dir,  prototype_name. 
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" .psdl") ; 

inake_filenaine  (output_f  ilename,  prototype_dir,  prototype_name, 

".tl.a"); 

fprintf (script_file,  "#!  /bin/csh\n\n") ; 

fprintf (script_f ile,  "echo - translating - \n\n"); 

fprintf (script_file,  "%3%s  %s  %s  %3\n",  caps_cLir,  translator, 
input_filename,  options,  output_filename) ; 


/* 

*  build  pre_ss  command 
*! 

make_filename (output_filename,  prototype_dir,  prototype_name, 

" .op. info") ; 

fprintf (script_f ile,  "\necho  -  building  static  schedule  - \n\n") 

fprintf (script_file,  "%s%s  %s  %s  %s\n",  caps_dir,  pre_ss, 

input_f ilename,  options,  output_f ilename) 


/* 

*  build  decomposer  command 
*1 

ma)te_filename (input_filename,  prototyp€_dir,  prototype_name, 

" . op. info") ; 

make_filename (output_filename,  prototype_dir,  prototype_name, 

" . atomic. inf o") 

fprintf (script_f ile,  "\n%s%s  %s  %s  %s\n",  caps_dir,  deconposer, 

input_f ilename,  options,  output_f ilename) 


I* 

*  copy  file  into  "atomic . info"  because  name  is  hardwired  in 

*  fp__b.a  (this  is  only  a  temporary  fix) 

*/ 


fprintf <script_f ile,  "cp  %s  atomic. inf o\n",  output_filename) ; 

/* 

*  build  static  scheduler  command 
*/ 

fprintf (script_file,  "\n%s%s\n",  caps_dir,  static_scheduler) ; 

make_filename (output_f ilename,  prototype_dir,  prototype_name, 

" .non_crits") ; 

fprintf (script_file,  "\ncp  non_crits  %s\n",  output_filename) ; 

make_f ilename (output_f ilename,  prototype_dir,  prototype_name, 

" . ss . a") ; 

fprintf (script_file,  "\ncp  ss.a  %3\n",  output_filename) ; 


/* 

*  build  dynamic  scheduler  command 
*/ 

fprintf (script_file,  "\necho  -  building  dynamic  schedule  - \n") ; 

fprintf (script_file,  "\n%s%s\n",  caps_dir,  dynamic_scheduler) ; 
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ma)ce_filename  (output_filename,  prototype_<iir,  prototype_name, 

".ds.a") ; 

fprintf (script_£ile,  "\ncp  ds.a  %s\n",  output_filename) ; 
fprintf {script_file,  "\n3leep  10\n") ; 

fclose (script_file) ; 


*  delete  all  pointer  references 
*/ 

delete  script_file; 
delete  output_filename; 
delete  input_filename; 
delete  script_filename; 

) 

void  inake_compile_script (char*  prototype_name)  { 
FILE*  script_file; 


/* 

*  define  character  string  constants 
*/ 

char*  a_make  -  "a. make"; 

int  filename_len  »  strlen  (prototype_dir)  +  strlen  (prc'totype_name) 

+  MAX_EXT_LEN  +  1; 

char*  script_filename  -  new  char  [filename_len] ; 
char*  output_filename  -  new  char  (filename_len] ; 

make_filename (script_filename,  prototype_dir,  prototype_name, 

".cscript") ; 

script_file  =  f open (script_f ilename,  "w") ; 

char*  static_dir  =  new  char [strlen {caps_dir)  +  22]; 

strcpy (static_dir, caps_dir)  ; 

strcat (static_dir, "src/static_scheduler/") ; 

char*  trans_dir  =  new  char [strlen (caps_dir)  +  16]; 

strcpy (trans_dir, caps_dir) ; 

strcat (trans  dir, "src/translator/")  ; 


/* 

*  build  compile  script  file 
*/ 

fprintf (script_file,  "#!  /bin/csh\n\n" ) ; 

fprintf (script_file,  "echo  -  compiling  - \n\n"); 


make_f ilename (output_f ilename,  prototype_dir,  prototype_name, 

".sb.a") ; 
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fprintf (script_file,  "cp  %s  3b.a\n",  output_filename) ; 

inake_filename  (output_filename,  prototype_dir,  prototype_naine, 

".tl.a") ; 

fprintf (3cript_file,  "cp  %3  tl.a\n",  output_filenanve) ; 

make_filename (output_filename,  prototype_dir,  prototype_naine, 

" .d3.a") ; 

fprintf (3cript_file,  "cp  %3  d3.a\n",  output_filenaine) ; 

make_filename (output_f ilename,  prototype_dir,  prototype_name, 

".33.a") ; 

fprintf (3cript_file,  "cp  %3  3s.a\n",  output_filename) ; 

fprintf (3cript_file,  "cp  %3priority_defs . a  priority_def3.a\n", 

static_dir) ; 

fprintf (script_file,  "cp  %3vstring_spec.a  V3tring_3pec.a\n", 

trans_dir) ; 

fprintf (3cript_file,  "cp  %3V3tring_body . a  v3tring_body . a\n", 

trans_dir) ; 

fprintf (script_file,  "cp  %stimer.a  timer. a\n",  trans_dir) ; 
fprintf {script_file,  "cp  %3p3dl_stream3.a  p3dl_streams . a\n", 

tran3_dir) ; 

fprintf (script_file,  "cp  %sd3_debugv2 . a  d3_debugv2.a\n",  trans_dir) 
fprintf (script_file,  "cp  %3glob_dec.a  glob_dec.a\n",  trans_dir) ; 

char*  command  «  new  char  [200]; 

St rcpy  (command,  a_inake) ; 

strcat (command,  "  static_3chedule  -f  "); 

St rcat (command,  "sb.a  tl.a  ds.a  3s.a  priority_defs . a 

V3tring_spec . a  ") ; 

strcat (command,  "vstring_body . a  timer. a  psdl_streams . a 

glob_dec.a  ") ; 

strcat (command,  "ds_debugv2 . a  -o  ") ; 
strcat (command,  prototype_dir) ; 
strcat (command,  prototype_name) ; 
strcat (command,  ".proto  -v"); 
fprintf (script  file,  "%s\n",  command); 
fprintf (script_file,  "sleep  10\n"); 

fclose (script_file) ; 

/* 

*  delete  all  pointer  references 
*/ 

delete  script_f ilename; 
delete  output_f ilename; 
delete  command; 
delete  static_dir; 
delete  trans_dir; 
delete  3cript_file; 
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) 


void  make_f ilename (char*  result,  char*  dir,  char*  prototype_naine, 

const  char*  extension)  { 
strcpy (result, dir) ; 
strcat ( result, prototype_name) ; 
strcat (result, extension)  ; 
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*  file: 

*  description: 

It 

*  written  by: 
*/ 


caps_defs.h 

contains  values  of  environment  variables  as  global 
variables  for  CAPS  interface. 

Mary  Ann  Cummings 


#ifndef  caps_defs_h 
♦define  caps_defs_h 

char*  caps_dir; 
char*  prototype_dir; 

fendif 
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/* 

*  file:  caps_inain_inenu . h 

*  description:  definition  of  class  defining  CAPS  main  menu 

*  written  by:  Mary  Ann  Cummings 

*/ 

#ifndef  caps_main_menu_h 
♦define  caps_main_menu_h 

♦include  <InterViews/dialog. h> 

♦include  <InterViews /button. h> 

♦include  "selecter.h" 

class  caps_main_menu:  public  Dialog  { 
public: 

caps_main_menu (ButtonState*) ; 
virtual  ~caps_main_menu ( ) ; 
virtual  boolean  Accept (); 
private: 

void  Init (ButtonState*) ; 
void  AcceptChoice ( ) ; 

Interactor*  AddButtons ()  ; 

void  perform_button_function (const  char*,  int) ; 

PushButton*  menu_buttons [7] ;  //  main  menu  function  buttons 

ButtonState*  caps_state;  //  value  of  most  recent  button  pushed 

); 


♦endif 
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!* 

*  file:  caps_niain_menu. c 

*  description:  implementation  of  class  defining  CAPS  main  menu 

*  written  by:  Mary  Ann  Cummings 

*/ 

♦include  "caps_main_menu.h" 

♦include  "caps_defs.h" 

♦include  <InterViews/shape.h> 

♦include  <InterViews /interactor . h> 

♦include  <lnterViewa/button.h> 

♦include  <InterView3 /event. h> 

♦include  <InterViews/frame.h> 

♦include  <InterViews/glue.h> 

♦include  <InterViews/box.h> 

♦include  <stdio.h> 

♦include  <string.h> 

/* 

*  main  menu  button  state  values 


*/ 

♦define  NOT_CHOSEN  88 

♦define  EDIT_CHOSEN  1 

♦define  SEARCH_CHOSEN  2 

♦define  TRANSLATE_CHOSEN  3 

♦define  COMPILE_CHOSEN  4 

♦define  EXECUTE_CHOSEN  5 

♦define  HELP_CHOSEN  6 

♦define  MAXPROTOTYPES  100 


/* 

*  declaration  of  tool  interface  routines 
*/ 

void  run_editor (char*)  ; 
void  run_search (char*) ; 
void  run_tran3lator (char*)  ; 
void  run_compiler (char*)  ; 
void  run_execution (char* )  ; 

/* 

*  declaration  of  design  database  function 
*/ 

void  find_prototype_names (char** ,  char*,  const  char*); 

caps_main_menu:  :  capsjft3in_menu  (ButtonState*  quit_state)  : 

(quit_state, nil)  { 

/* 

*  constructor  for  caps_main_menu  class 
*/ 

Init (quit_state) ; 

) 
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cap3_main_inenu :  :  ~caps_inain_menu  ( )  { 

/* 

*  destructor  for  caps_main_menu  class 
*/ 

delete  caps_state; 

} 

boolean  caps_inain_menu:  :  Accept  ()  { 

/* 

*  loops  on  each  event  searching  for  quit  button  pushed 
*/ 


Event  e; 
int  v; 

state->SetValue (0)  ; 
do  { 

Read (e) ; 

e.target->Handle (e) ; 

AcceptChoice  () ; 
stat3->GetValue (v) ; 

}  while  (v  ==  0  &&  e. target  !=  nil) ; 

return  v  ==  1  |  |  e. target  nil; 


void  caps_main_inenu:  :  Init  (ButtonState*  ciuit_state)  { 

/* 

*  want  to  present  dialog  box  that  will  ask  user  for  directory  that 

*  prototypes  are  stored  in 
*/ 

/* 

*  initialize  all  class  variables 
*/ 

caps_state  =  new  ButtonState (NOT_CHOSEN) ; 

SetClassName ("caps_main_menu")  ; 


menu_buttons [0] 
menu_buttons [ 1 ) 

menu_buttons [2] 

menu_buttons [ 3  ] 

menu  buttons [4] 


new  PushButtonC  edit  ",  caps_state,  EDIT_CHOSEN) 
new  PushButtonC  search  " ,  caps_state, 
SEARCH_CHOSEN) ; 

new  PushButton ("translate", caps_state, 
TRANSLATE_CHOSEN) ; 

new  PushButtonC  compile  " ,  caps_state, 

COMPILE_CHOSEN) ; 

new  PushButtonC  execute  ",  caps_state, 

EXECUTE  CHOSEN) ; 
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inenu_buttons  [5]  “  new  PushButtonC  help  ", caps_state, HELP_CHOSEN)  ; 
menu  buttons[6]  -  new  PushButton("  quit  ",quit_state,true) ; 


/* 

*  make  each  button  in  the  shape  of  a  square 
*/ 

Shape  *sh  •»  new  Shape  ()  ; 
sh->Square  (rouncl{ .  8*inch) )  ; 

for  (int  j  =  0;  j  <  7;  ++j) 

menu_buttons ( j ] ->R_shape (*sh) ; 


/* 

*  draw  main  menu  on  screen 
*/ 

Insert ( 

new  ShadowFrame ( 
new  HBox ( 

new  HGlue (round(0 . l*inch) ,  round(0 . l*inch) ) , 
AddButtons () 


void  caps_main_menu: :AcceptChoice ()  { 
int  val; 

caps_state->GetValue (val) ; 
switch (val)  ( 

case  EDIT_CHOSEN: 

perform_button_f unction ("edit",  0)  ; 
break; 

case  SEARCH_CHOSEN: 

perform_button_f unction ("search",  1)  ; 
break; 

case  TRANSLATE_CHOSEN: 

perform_button_f unction ("translate",  2) ; 
break; 

case  COMPILE_CHOSEN: 

perform_button_function ("compile",  3)  ; 
break; 

case  EXECUTE_CHOSEN: 

perform_button_f unction ("execute",  4)  ; 
break; 

case  HELP_CHOSEN: 

menu_buttons [5] ->UnChoo3e() ; 
caps_3tate->SetValue (NOT_CHOSEN) ; 
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break; 


) 


default : 
break; 


Interactor*  caps_main_menu: :AddButtons ()  { 

/* 

*  inserts  buttons  into  main  menu 
*/ 

HBox*  box  “  new  HBox(); 

box->Align (Center)  ; 

for  (int  i  =  0;  i  <  7;  ++i)  { 

box->Insert (menu_buttons [i]  ) ; 

box->Insert (new  HGlue (round(0 . 01*inch) ,  round (0 . 01*inch) ,  0) )  ; 

} 

return  box; 


void  caps_main_menu : : perform_button_f unction 

(const  char*  func_type,  int  but ton_n umber)  { 

/* 

*  define  title  for  prototype  selecter 
*/ 

char*  edit_select_string  =  "Select  prototype  to  edit:  "; 
char*  search_select_string  =  "Select  prototype  to  search:  "; 
char*  translate_select_string  =  "Select  prototype  to  translate:  "; 
char*  compile_select_string  «=  "Select  prototype  to  compile:  "; 
char*  execute_select_string  =  "Select  prototype  to  execute:  "; 
char*  prototype_name  =  nil; 

/* 

*  define  dialog  box  to  select  prototype 
*/ 

Selecter*  sel; 
if  (func_type  ==  "edit") 

sel  =  new  Selecter (this,  edit_select_string,  TopCenter) ; 
else  { 

if  (func_type  ==  "search") 

sel  =  new  Selecter (this,  search_select_string,  TopCenter); 
else  { 

if  (func_type  ==  "translate") 

sel  =  new  Selecter (this,  translate_select_string,  TopCenter); 
else  { 

if  (func_type  ==  "compile") 

sel  =  new  Selecter (this,  compile_select_string,  TopCenter); 
else  ( 

if  (func_type  ==  "execute") 

sel  =  new  Selecter (this,  execute_select_string,  TopCenter); 

) 

) 
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) 

char*  prototype_array [MAXPROTOTYPES] ; 

find_prototype_names (prototype_array,  prototype_dir,  func_type) 
sel->Insert (prototype_array) ; 
prototype_name  *  sel->Select ( )  ; 
delete  sel; 

/* 

*  set  main  menu  button  back  to  white 
*/ 

menu_buttons [ but ton_n umber] ->UnChoose () ; 
caps_state->SetValue {NOT_CHOSEN) ; 

if  (prototype_name  !-  nil) 
if  (func_type  "edit") 

run_editor (prototype_name) ; 
else  { 

if  (func_type  «=  "search") 

run_search (prototype_name) ; 
else  { 

if  (func_type  ==  "translate") 

run_translator (prototype_name) ; 
else  { 

if  (func_type  "  "compile") 

run_compiler (prototype_name) ; 
else  { 

if  (func_type  "execute") 

run_execution (prototype_name) ; 

} 

} 

) 

) 

delete  prototype_name; 

) 
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/* 

*  file:  design_db.c 

*  description:  finds  the  files  that  are  associated  witha  given 

*  prototype  and  function,  strips  off  the  extension, 

*  and  returns  the  name  of  the  prototypes  in  an  array 

*  of  strings. 

*  written  by:  Mary  Ann  Cummings 

*/ 


#include  <sys/types.h> 

♦include  <sys/dir.h> 

♦include  <string.h> 

♦include  "selector. h" 

int  compare_successful (char*,  const  char*); 
char*  define_extension (const  char*); 

void  f ind_prototype_names (char**  prototype_array,  char*  dir, 

const  char*  func)  { 

DIR*  pdir  =  opendir (dir) ; 
boolean  successful  -=  pdir  !=  NULL; 
struct  direct*  d; 
char*  name; 

int  no_of_prototypes  =  0; 
if  (successful)  { 

for  (d  =  readdir  (pdir) ;  d  !•=  NULL;  d  ■=  readdir  (pdir)  )  { 

int  compare_re3ult  «  compare_successful (d->d_name,  func) 
if  (compare_result)  { 

name  =  new  char  [compare_result  +  1); 
strncpy (name,  d->d_name,  compare_result); 
name [compare_result]  =  '\0'; 
prototype_array [no_of_prototypes]  = 

new  char [ St rlen (name) +1 ] ; 
strcpy (prototype_array [no_of_prototypes++] ,name) ; 

) 

} 

} 

prototype__array  [no_of_prototypes]  =  nil; 
closedir (pdir) ; 

) 

int  compare_successful (char*  filename,  const  char*  func)  { 
char*  extension; 

extension  =  def ine_extension (func)  ; 

int  filename_len  =  strlen (filename) ; 
int  ext_len  =  strlen (extension) ; 

if  (f ilename_len  <  ext_len) 
return  0; 
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else  { 

int  limit  -  filename_len  -  ext_len; 
for  (int  i  “  0;  i  <“  limit;  ++i)  { 

if  ( St rncir^  (filename  +  i,  extension,  ext_len) 
return  i; 

) 

return  0; 

) 

) 

char*  define_extension (const  char*  func)  { 
char*  extension; 

/* 

*  define  file  extension  based  on  function  performed 
*/ 

if  (strcrr^  (func,  "edit")  --  0) 
extension  «  " . spec.psdl"; 
else  { 

if  (strcnp (func, "search")  0) 
extension  -  ".imp.psdl"; 
else  { 

if  (strcmp (func, "translate")  "  0) 
extension  «  ".imp.psdl"; 
else  ( 

if  (strcmp (func, "compile")  ==  0) 
extension  =  ".sb.a"; 

else  { 

if  (strcmp (func, "execute")  --  0) 
extension  “  ".proto"; 

) 

} 

) 

) 

return  extension; 


/* 

*  file:  main.c 

*  description:  CAPS  interface  driver. 

*  written  by:  Mary  Ann  Cummings 

*/ 

♦include  <InterViews/button.h> 

♦include  <InterView3/world.h> 

♦include  <stdio.h> 

♦include  <string.h> 

♦include  "caps_main_menu.h" 

static  PropertyData  properties []  =  { 

{  "caps*PushButton*font", 

"*-*-times-bcld-r-normal-*-*-140-*-*-*-*-iso8859-l" 

), 

{  "caps*geometry", 

"-0+0" 

{  nil  ) 

); 

static  OptionDesc  options []  •  { 

{  nil  ) 

); 


void  GetCapsEnv  ( ) ; 

int  main  (int  argc,  char*  argv[])  ( 

/* 

*  define  variables  to  define  CAPS  user  interface's  environment 
*/ 

World*  world  =  new  WorldC'caps",  properties,  options,  argc, 
ButtonState*  cjuit  •  new  ButtonState (false) ; 
caps_main_menu*  cmm  =  new  caps_main_menu (quit) ; 

cmm->SetName ("CAPS  main  menu") ; 

/* 

*  get  environment  variables 
*/ 

GetCapsEnv ( ) ; 

/* 

*  perform  all  operations  on  user  interface 
*/ 

world->InsertApplication (cmm) ; 
cmm->Accept 0 ;  //  event  loop 

world->Remove (cmm) ; 

return  0; 

) 


argv) 
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!* 

*  file:  selecter.h 

*  description:  class  definition  of  Selector 

*  written  by:  Mary  Ann  Cummings 

*/ 

#ifndef  selecter_h 
♦define  selecter_h 

♦include  <InterViews/strchooser . h> 

♦include  <InterViews/f rame . h> 

♦include  <InterViews/strbrowser . h> 

I* 

*  A  Selector  allows  the  user  to  select  the  prototype  he  wants  to  use. 

*! 

class  Selector  :  public  StringChooser  { 
public : 

Selector (Interactor*,  const  char*.  Alignment); 

char*  Select  (); 

void  Insert (char** ) ; 

void  SetErrorTitle (const  char*); 

protected: 

void  Init (const  char*); 

Interactor*  Interior  (); 

boolean  Popup (Events,  boolean  -  true); 

Interactor*  underlying;  //  parent  interactor  that  we'll  overlay 

private : 

Interactor*  AddScroller (Interactor*) ; 

StringBrowser*  browser ()  {  return  (StringBrowser* )  _browser;  ) 

MarginFrame*  title; 

MarginFrame*  error_title; 

Alignment  align; 

}; 


♦endif 
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/* 

*  file:  selecter.c 

*  description:  implementation  of  Selector  class 

*  written  by:  Mary  Ann  Cummings 

*/ 

♦include  "selector .h" 

♦include  "istring.h" 

♦include  <InterViews/button.h> 

♦include  <InterViews/event . h> 

♦include  <InterViews/frame.h> 

♦include  <InterViews /message. h> 

♦include  <InterViewa/streditor . h> 

♦include  <InterViewa/world. h> 

♦include  <InterViews/glue . h> 

♦include  <InterViewa/box.h> 

♦include  <InterView3/border.h> 

♦include  <InterViews/adjuster .h> 

♦include  <InterViews/scroller .h> 

♦include  <InterViews/sensor.h> 

♦include  <InterViews/streditor .h> 

♦include  <stdio.h> 

♦include  <string.h> 

Selector :: Selector  (Interactor*  u,  const  char*  t,  Alignment  a)  : 

(new  ButtonState,  10,  24,  a)  ( 

align  -  a; 
underlying  -  u; 

Init (t) ; 

Insert (Interior () )  ; 

) 

char*  Selector :: Select  ()  ( 
char*  name  =  nil; 

Event  e; 
if  (Popup (e)) 

name  =  Choice (); 

return  name; 

) 

void  Selector :: Insert (char**  name_array)  { 

for  (int  i  •  0;  name_array [i]  !•  nil;  ++i) 
browser () ->Append(name_array[i] ) ; 

) 

void  Selector :: Init (const  char*  t)  ( 
if  (*t  «=  ' \0' ) 

title  =  new  MarginFrame (new  VGlue(0,0)); 

else 

title  “  new  MarginFrame (new  Message (t)); 
error_title  -  new  MarginFrame (new  VGlue(0,0)); 
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) 


Interactor*  Selector Interior  ()  { 
const  int  space  “  round ( . 5  *  cm) ; 

VBox*  errorbloc)c  ■  new  VBox  ( 

new  HBox (error_title,  new  HGlue) 

)  ; 


VBox*  titleblock  »  new  VBox ( 

new  HBox (title,  new  HGlue) 

)  ; 


) 


return  new  Frame ( 

new  MarginFrame ( 
new  VBox ( 

errorbloc)c, 

titleblock, 

new  VGlue (space, 0) , 

new  Frame (AddScroller (browser () ) ) , 

new  VBox ( 

new  VGlue (space, 0) , 

new  Frame (new  MarginFrame (_sedit, 2) ) 

)  , 

new  VGlue (space, 0) , 
new  HBox ( 

new  VGlue (space, 0) , 
new  HGlue, 

new  PushButton ("Cancel",  state,.  '\007'), 
new  HGlue (space, 0) , 

new  PushButton ( 'Select",  state,  '\r') 

) 

) ,  space,  space/2,  0 

),  2 

)  ; 


boolean  Selector: : Popup  (Events,  boolean)  { 

World*  world  •  underlying->GetWorld() ; 

Coord  X,  y; 

underlying->Align (align,  0,  0,  x,  y)  ; 
underlying->GetRelative (x,  y,  world); 

world->InsertTransient (this,  underlying,  x,  y,  align); 
boolean  accepted  «  Accept (); 
world->Remove (this) ; 
return  accepted; 

) 


Interactor*  Selecter :: AddScroller (Interactor*  i)  { 
return  new  HBox ( 

new  MarginFrame (i,  2) , 
new  VBorder, 
new  VBox ( 
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new  UpMover (i, 1) , 
new  HBorder, 
new  VScroller  (i) , 
new  HBorder, 
new  DownMover (i, 1) 


void  ChangeMsg (const  char*  name,  MarginFrame*  frame)  { 
Interactor*  msg; 

if  (*name  “  '  \0' ) 

msg  -  new  VGlue(0,0); 

else 

msg  -  new  Message (name) ; 
f rame->Insert (msg) ; 
f rame->Change (msg) ; 

) 

void  Selector SetErrorTitle (const  char*  name)  { 
ChangeMsg (name,  error_title) ; 

) 
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/* 

*  file:  tool_interface . c 

*  description:  executes  CAPS  tools  based  on  given  function. 

*  written  by:  Mary  Ann  Cummings 

*/ 

♦include  "caps_def s . h" 

♦include  <InterViews/defs . h> 

♦include  <string.h> 

♦include  <stdio.h> 

char*  SetEnvString (char*) ; 

/* 

*  get  the  environment  variables  needed  for  caps 
*/ 

void  (SetCapsEnv  ( )  { 

caps_dir  -  SetEnvString ( "CAPS" ) ; 
prototype_dir  «  SetEnvString ("PROTOTYPE"); 


char*  SetEnvString (char*  env_const)  { 
char*  tmp_string; 
int  tmp_len; 
char*  env_string; 

tn^_string  ■  (char*)  getenv (env_const) ; 
if  (tmp_string  !«  nil)  { 

tmp_len  -  strlen  (tiTqp_string)  ; 
env_string  -  new  char[tmp_len  +  2); 
strcpy (env_string, tn^_string) ; 
if  (tmp_string(tmp_len  -  1]  !-'/')  ( 

strcat (env_3tring, "/") ; 

) 

) 

else  { 

env_string  «  " 

) 

return  env_string; 

) 

void  ma)ce_translate_script  (char*)  ; 
void  nia)ce_coinpile_script  (char*)  ; 

char*  xterm  -  "xterm 
char*  in_bac)cground  “  "  4"; 

void  run_editor (char*  prototype_name)  { 
char*  my_process  •  new  char  [150); 


/* 

*  ma)ce  xterm  command  to  execute  graphic  editor 
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*/ 

strcpy (my_process, caps_dir) ; 
strcat (my_process, "bin/") ; 
strcat (my_jprocess, "graphic_editor") ; 
strcat  (my__process,  "  -d  ") ; 
strcat (my_process, prototype_dir) ; 
strcat <my_proces3, "  -p  "); 
strcat (my_process, prototype_name) ; 
strcat (my_process, in_background) ; 

system (my_process) ; 

delete  my_process; 

) 

void  run_search (char*  prototype_name)  ( 
char*  my_process  -  new  char  [100]; 

char*  options  -  "-T  Search  -g  60x10+0+150  +sb  -e  "; 

/* 

*  make  xterm  command  to  execute  search  script  file 
*/ 

strcpy (my_process, xterm) ; 

strcat (my _proces3, options) ; 

strcat (my_process, caps_dir) ; 

strcat (my_process, "bin/search . script") ; 

strcat (my_proces3, in_background) ; 

system (my  jprocess) ; 

delete  my_proce3s; 
delete  options; 

) 

void  run_translator (char*  prototype_name)  { 
make_translate_script (prototype_name) ; 

/* 

*  create  command  to  change  file  protection  so  that  file  can  be 

*  executed 
*/ 

char*  chmod_command  =  new  char [100); 
strcpy (chmod_command, "chmod  700  "); 
strcat (chmod_command, prototype_dir) ; 
strcat (chmod_command, prototype_name)  ; 
strcat (chmod_command, " . tscript")  ; 
system (chmod_command)  ; 

char*  my_process  =  new  char  [100); 

char*  options  =  "-T  Translator  -g  50x10+0+400  +sb  -e 
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*  make  xterm  command  to  execute  translator  script  file 
*/ 

strcpy (my_process, xterm)  ; 
strcat (my_process, options)  ; 
strcat (my_process,prototype_dir) ; 
strcat (my_process, prototype_name) ; 
strcat (my_proces3, " .tscript")  ; 
strcat (my_process, in_background) ; 

system (my_process) ; 

delete  my_proces3; 
delete  chmod_command; 
delete  options; 

) 

void  run_compiler (char*  prototype_name)  { 
make_compile_script (prototype_name) ; 


*  create  command  to  change  file  protection  so  that  file  can  be 

*  executed 
*/ 

char*  chmod_command  «=  new  char[100]; 
strcpy (chmod_command,  "chmod  700  "); 
strcat (chmod_command,prototype_dir) ; 
strcat (chmod_command,prototype_name) ; 
strcat (chmod_command, " .cscript")  ; 
system (chmod_command) ; 

char*  my_process  =  new  char  [lOOJ; 

char*  options  »  "-T  Con^iler  -g  +500+550  +sb  -e 


*  make  xterm  command  to  execute  translator  script  file 
*/ 

strcpy (my_proces3, xterm)  ; 
strcat (my _proce3S, options) ; 
strcat (my_proce3S, prototype_dir) ; 
strcat (my_process, prototype_name) ; 
strcat (my_process, " . cscript")  ; 
strcat (my_proces3, in_background)  ; 

system (my _process) ; 

delete  my_process; 
delete  chmod_command; 
delete  options; 

) 

void  run_execution (char*  prototype_narae) 

{ 
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char*  my_process  =  new  char  [100]; 

char*  options  =  "-T  Execute  -g  +50C+400  +sb  -e 


make  xterm  command  to  execute  translator  script  file 

strcpy (my_process, xterm)  ; 
strcat (my_process, options) ; 
strcat (my_process, prototype_dir) ; 
strcat (my_process, prototype_name) ; 
strcat (my_process, " .proto")  ; 
strcat (my_process, in_background) ; 

system (my_process) ; 

delete  my_process; 
delete  options; 


APPENDIX  D 

GRAPHIC  EDITOR  PROGRAMMERS  MANUAL 


A.  FILES 


The  page  numbers  listed  in  the  file  descriptions  indicate  where  to  find  these  files  in  this 
thesis.  Those  files  not  changed  will  not  have  a  page  number  associated  with  it. 


commands.h: 

commands.c: 

dfd_defs.h; 

dfdclasses.h: 

dfdsplinelist.h: 

dfdsplinelist.c: 

dialogbox.h: 

dialogbox.c: 

drawing.h: 

drawing.c: 

drawingview.h: 

drawingview.c: 

edge.h: 

edge.c: 

edgelist.h: 

edgelist.c: 

editor.h; 

editor.c: 

errhandler.h: 

errhandler.c: 

highlighter.h: 

highlighter.c: 


Class  description  for  Commands  class  (not  changed). 

Implementation  for  Commands  class  and  all  classes  which  are 
commands  in  the  pull  down  menus,  (p.  116) 

Defines  all  graphic  editor-specific  variables,  (p.  134) 

Sets  the  value  of  the  class  identifiers  for  all  of  the  DFD  objects, 
(p.  136) 

Class  descriptor,  for  DFDSplineSelList  cl  .ss.  (p.  137) 
Implementation  for  DFDSplineSelList  class,  (p.  139) 

Qasi  description  of  DialogBox  class  and  its  subclasses,  (p.  140) 
Implementation  of  DialogBox  class  and  its  subclasses,  (p.  144) 
Class  description  of  Drawing  class,  (p.  157) 

Implementation  of  Drawing  class,  (p.  162) 

Class  description  of  DrawingView  class  (not  changed). 
Implementation  of  DrawingView  class  (not  changed). 

Class  description  of  Edge  class,  (p.  212) 

Implementation  of  Edge  class,  (p.  213) 

Class  description  of  EdgeList  class,  (p.  215) 

Implementation  of  EdgeList  class,  (p.  217) 

Class  description  of  Editor  c'ass.  (p.  218) 

Implementation  of  Editor  class,  (p.  222) 

Class  description  of  ErrHandler  class  (not  changed). 
Implementation  of  ErrHandler  class  (not  changed). 

Class  description  of  Highlighter  class  (not  changed). 
Implementation  of  Highlighter  class  (not  changed). 
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history.h: 

history  .c: 

idraw.h; 

idraw.c: 

iellipses.h: 

iellipse.c: 

ipainth; 

ipaintc; 

isplines.h: 

isplines.c: 

istring.h: 

istring.c: 

keystrokes.h: 

list.h: 

list.c: 

listboolean.h: 

listbrush.h: 

listcenter.h: 

listchange.h; 

listchange.c: 

listcolor.h: 

listgroup.h: 

listgroup.c: 

listifont.h; 

listintrctr.h: 

listipattem.h: 

listselectn.h: 

main.c; 

mapipaint.h: 

mapipaint.c: 

mapkey.h: 


Class  description  of  History  class  (not  changed). 

Implementation  of  History  class  (not  changed). 

Class  description  of  Idraw  class  (main  class  of  editor),  (p.  257) 
Implementation  of  Idraw  class,  (p.  259) 

Class  description  of  IFillEllipse  and  IFillCircle  (not  changed). 

Implementation  of  IFillEllipse  and  IFillCircle  classes  (not 
changed). 

Class  description  of  IBmsh,  IFont,  and  IPattem  (not  changed). 

Implementation  of  IBnish,  IFont,  and  IPattem  classes  (not 
changed). 

Qass  description  of  IFillBSpline  and  IFillClosedB Spline  (not 
changed). 

Implementation  of  IFillBSpline  and  IFillClosedB  Spline  classes 
(not  changed). 

Defines  needed  string  functions,  (p.  264) 

Implements  needed  string  functions,  (p.  265) 

Defines  keystrokes  that  map  to  tools  and  commands,  (p.  267) 
Class  description  of  BaseList  class  (not  changed). 
Implementation  of  BaseList  class  (not  changed). 

Class  description  of  booleanList  class  (not  changed). 

Class  description  of  IBmshList  class  (not  changed). 

Class  description  of  CenterList  class  (not  changed). 

Class  description  of  ChangeList  class  (not  changed). 
Implementation  of  ChangeList  class(not  changed). 

Class  description  of  IColorList  class  (not  changed). 

Class  description  of  GroupList  class  (not  changed). 
Implementation  of  GroupList  class  (not  changed). 

Class  description  of  IFontList  class  (not  changed). 

Class  description  of  InteractorList  class  (not  changed). 

Class  description  of  IPattemList  class  (not  changed). 

Class  description  of  SelectionList  class  (not  changed). 

Graphic  editor  driver,  (p.  271) 

Class  description  of  MapIPaint  and  its  subclasses  (not  changed). 

Implementation  of  MapIPaint  class  and  its  subclasses  (not 
changed). 

Class  description  of  MapKey  class  (not  changed). 
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mapkcy.c: 

opse}list.h; 

opsellist.c: 

page.h: 

page.c: 

panel.h: 

panel.c: 

pdmenu.h: 

pdmenu.c: 

nibbands.h: 

rubbands.c; 

selection.h; 

selection.c: 

sldfdspline.h: 

sldfdsplinex: 

slellipses.h: 

slellipses.c: 

sloperator.h: 

sloperator.c: 

slpict.h: 

slpict.c; 

slsplines.h: 

slsplines.c: 

sltext.h: 

sltext.c: 

state.h: 

statc.c: 

state  views.h: 

stateviews.c: 


Implementation  of  MapKey  class  (not  changed). 

Qass  description  of  OperatorSelList.  (p.  272) 

Implementation  of  OperatorSelList  class,  (p.  274) 

Class  description  of  Page  class  (not  changed). 

Implementation  of  Page  class  (not  changed). 

Qass  description  of  Panel  and  Panelltem  (not  changed). 
Implementation  of  Panel  and  Panelltem  classes  (not  changed). 
Qass  description  of  pull  down  menu  classes  (not  changed). 
Implementation  of  pull  down  menu  classes  (not  changed). 

Qass  description  of  IStretchingRect,  RubberMultiLine,  and  Rub- 
berPolygon  classes  (not  changed). 

Implementation  of  IStretchingRect,  RubberMultiLine,  and  Rub- 
berPolygon  classes  (not  changed). 

Qass  description  of  Selection  and  NPtSelection  (not  changed). 

Implementation  of  Selection  and  NPtSelection  classes  (not 
changed). 

Qass  description  of  DFDSplineSelection  class,  (p.  289) 
Implementation  of  DFDSplineSelection  class,  (p.  290) 

Qass  description  of  EllipseSelection  and  QrcleSelection  (not 
changed). 

Implementation  of  EllipseSelection  and  QrcleSelection  classe* 
(not  changed). 

Qass  description  for  OperatorSelection  class,  (p.  292) 
Implementation  of  OperatorSelection  class,  (p.  294) 

Qass  description  for  PictSelection  class  (not  changed). 
Implementation  of  PictSelection  class  (not  changed). 

Qass  description  of  BSplineSelection  and  QosedBSplineSelec- 
tion  (not  changed). 

Implementation  of  BSplineSelection  and  QosedBSplineSelec- 
tion  classes  (not  changed). 

Qass  description  of  TextSelection  (not  changed). 

Implementation  of  TextSelection  class  (not  changed). 

Qass  description  of  State  (not  changed). 

Implementation  of  State  class  (not  changed). 

Qass  description  of  StateView  and  its  subclasses  (not  changed). 

Implementation  of  StateView  class  and  its  subclasses  (not 
changed). 
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textedit.h:  Class  description  of  TextEdit  (not  changed). 

textedit.c:  Implementation  of  TextEdit  class  (not  changed), 

tools. h:  Qass  description  of  Tools  class  (not  changed), 

tools.c:  Implementation  of  Tools  class  and  its  subclasses,  (p.  315) 

B.  GUIDELINES  FOR  FUTURE  CHANGES 


1.  PSDL  Updates 

PSDL  is  created  or  modiried  in  the  following  functions: 


•  Drawing 

•  UpdatePSDLSpec 

•  WritePSDLGraph 

•  WriteEdges 

•  WriteVertices 

•  AddStrcam 

•  AddLabelToStreams 

•  ReraoveStream 


•  OperatorSelection 

•  AddOperatorldToPSDL 

•  AddInputToPSDL 

•  AddOutputToPSDL 

•  AddStateToPSDL 

•  ReplaceInputStringInPSDL 

•  ReplaceOutputStringInPSDL 

•  ReplaceStateStringInPSDL 

•  AddMETToPSDL 

•  RemoveInputFromPSDL 

•  RemoveOutputFromPSDL 

•  RemoveStateFromPSDL 
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The  PSDL  keywords  are  set  in  the  file  dfd_defs.h.  All  of  the  above  functions  use 
these  keywords  to  create  their  portion  of  the  PSDL. 

2.  Writing  Files 

All  files  are  written  by  functions  defined  in  the  file  drawing.c.  The  function  Writ- 
eDFDFiles  creates  the  following  files: 

•  <prototype_name>.spec.psdl:  PSDL  specification  of  the  draw¬ 

ing. 

•  <prototype_name>.iinp.psdl:  PSDL  implementation  of  the 

drawing. 

•  <:prototype_name>.<op_name>.spec.psdl:  PSDL  specification  of  an  opera¬ 
tor  (done  for  each  operator  in  the  drawing. 

•  <:prototype_name>.graph:  Drawing  information  needed  to 

rebuild  DFD. 

3.  Adding  New  Tools 

All  tools  are  associated  with  a  class  found  in  Tools.c.  For  example,  the  Select  tool 
is  created  in  the  SelectTool  class.  Each  tool  calls  a  function  in  editor.c  to  perform  the  op¬ 
eration  associated  with  the  tool.  This  function  begins  with  the  word  Handle.  For  example, 
the  SelectTool  class  uses  HandleSelect  to  draw  the  handles  on  a  selected  object  and  add  it 
to  the  selection  list. 

4.  Adding  New  Commands 

All  commands  are  associated  with  a  class  found  in  Commands.c.  For  example,  the 
Delete  command  is  created  in  the  DeleteCommand  class.  Each  command  calls  a  function 
in  editor.c  to  perform  the  operation  associated  with  the  command.  The  name  of  the  func¬ 
tion  is  the  same  as  the  command  name.  For  example,  the  DeleteCommand  class  uses  De¬ 
lete  to  remove  the  selected  objects  from  the  drawing. 
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5.  Adding  New  DFD  Components 

To  be  able  to  draw  a  new  object  in  the  DFD,  the  following  will  have  to  be  accom¬ 
plished:  Add  a  new  tool  to  draw  the  object.  Add  a  new  subclass  of  Selection  to  represent 
the  object.  Add  a  new  Handle  function  to  editor.c  to  perform  the  object’s  operation.  Add  a 
new  class  identifier  to  dfdclasses.h  and  add  that  identifier  to  the  object’s  class  in  order  to 
identify  the  object  when  needed.  Add  new  functions  to  opsellist.c  and  sloperator.c  to  ap¬ 
pend  the  object  to  the  operator  list. 

6.  Adding  New  X  Resources 

All  X  resources  are  set  in  main.c.  A  function  must  be  added  to  mapipaint.c  to  re¬ 
trieve  the  set  resource  in  order  to  use  it  in  the  editor. 

7.  Adding  Syntax  Directed  Editors 

The  vi  editor  is  called  by  the  HandleSpecify,  HandleConstraints,  and  Han- 
dleStreams  operations  in  the  Editor  class.  Three  variables  are  defined  in  dfd_defs.h  to  map 
to  vi.  These  variables  are:  STREAMS.SDE,  CONSTRAINTS_SDE,  .and  SPECIHCA- 
TION_SDE.  To  call  the  syntax  directed  editors  directly  from  the  graphic  editor,  replace  vi 
with  the  names  of  the  editors  in  dfd_defs.h.  Otherwise,  call  the  tool  interface  to  call  the 
proper  syntax  directed  editor.  If  this  is  done,  fork  a  process  to  call  the  tool  interface  instead 
of  forking  a  process  to  execute  vi. 
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C.  CODE 


//  file:  connnands.c 

//  description:  Implementation  for  Commands  class  and  all  classes  which 
II  are  commands  in  the  pull  down  menus.  ) 

/* 

*  Copyright  (c)  1987,  1988,  1989  Stanford  University 

■k 

*  Permission  to  use,  copy,  modify,  distribute,  and  sell  this  software 

*  and  its  documentation  for  any  purpose  is  hereby  granted  without  fee, 

*  provided  that  the  above  copyright  notice  appear  in  all  copies  and  that 

*  both  that  copyright  notice  and  this  permission  notice  appear  in  s 

*  supporting  documentation,  and  that  the  name  of  Stanford  not  be  used  in 

*  advertising  or  publicity  pertaining  to  distribution  of  the  software 

*  without  specific,  written  prior  permission.  Stanford  makes  no 

*  representations  about  the  suitability  of  this  software  for  any  purpose. 

*  It  is  provided  "as  ia"without  express  or  implied  warranty. 

* 

*  STANFORD  DISCLAIMS  ALL  WARRANTIES  WITH  REGARD  TO  THIS  SOFTWARE, 

*  INCLUDING  ALL  IMPLIED  WARRANTIES  OF  MERCHANTABILITY  AND  FITNESS. 

*  IN  NO  EVENT  SHALL  STANFORD  BE  LIABLE  FOR  ANY  SPECIAL,  INDIRECT  OR 

*  CONSEQUENTIAL  DAMAGES  OR  ANY  DAMAGES  WHATSOEVER  RESULTING  FROM  LOSS 

*  OF  USE,  DATA  OR  PROFITS,  WHETHER  IN  AN  ACTION  OF  CONTRACT,  NEGLIGENCE  OR 

*  OTHER  TORTIOUS  ACTION,  ARISING  OUT  OF  OR  IN  CONNECTION 

*  WITH  THE  USE  OR  PERFORMANCE  OF  THIS  SOFTWARE. 

*/ 

//  SHeader:  commands. c,v  1.17  89/10/09  14:47:29  linton  Exp  $ 

//  implements  class  Commands. 

/*  Changes  made  to  conform  Idraw  into  CAPS  graphic  editor 

* 

*  Removed  the  following  commands: 

*  FlipHorizontal,  FlipVertical,  90Clockwise,  90CounterCW,  PreciseMove, 

*  PreciseScale,  PreciseRotate,  Group,  Ungroup,  BringToFront,  SendToBack, 

*  N\imberof Graphics,  BrushCommands,  New. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made;  August  15,  1990 

*/ 

♦include  "commands. h" 

♦include  "editor. h" 

♦include  "ipaint.h" 

♦include  "istring.h" 

♦include  "keystrokes . h" 

♦include  "mapipaint . h" 

♦include  "mapkey.h" 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sllines.h" 

"state . h" 

<InterViews/box.h> 
<InterViews/painter . h> 
<InterViews /sensor .h> 
<InterViews/shape .h> 


//An  IdrawCommand  enters  itself  into  the  MapKey  so  KeyEvents  may  be 
//  mapped  to  IdrawCommands . 


class  IdrawCommand  :  public  PullDownMenuCommand  { 
public : 

IdrawCommand (PullDownMenuActivator*,  const  char*,  char.  Editor*, 
MapKey*  •  nil) ; 
protected: 

Editor*  editor;  //  handles  drawing  and  editing  operations 

} ; 


//  IdrawCommand  passes  a  printable  string  representing  the  given 
//  character  for  its  key  string  and  enters  itself  into  the  character's 
//  slot  in  the  MapKey. 

IdrawCommand: : IdrawCommand  (PullDownMenuActivator*  a,  const  char*  n, 

char  c. 

Editor*  e,  MapKey*  mk)  :  (a,  n,  mk  ?  mk->ToStr(c)  :  "")  ( 

editor  -  e; 
if  (mk  !-  nil)  ( 
mk->Enter (this,  c) ; 

) 

1 

//  The  following  is  not  needed  for  a  DFD  editor 
/*  *****  Start  of  Commented  Out  Code  ***** 


//  Each  class  below  encapsulates  a  label,  character,  and  command. 

class  NewCommand  :  public  IdrawCommand  { 
public : 

NewCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 

:  (a,  "New",  NEWCHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->New ( )  ; 

) 

); 


*****  End  of  Commented  Out  Code  *****  */ 

class  RevertCommand  :  public  IdrawCommand  ( 
public : 

RevertCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Revert",  REVERTCHAR,  e,  mk)  () 
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void  Execute  (Eventi)  { 
editor->Revert () ; 

I 

); 


class  OpenCommand  :  public  IdrawCommand  ( 
public : 

OpenCommand  (PullDownMenuActivator*  a.  Editor*  e, 
:  (a,  "Open...",  OPENCHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
editor->Open ( ) ; 

) 

); 


class  SaveCommand  :  public  IdrawCommand  { 
public : 

SaveCommand  (PullDownMenuActivator*  a.  Editor*  e, 
:  (a,  "Save",  SAVECHAR,  e,  tak)  {) 

void  Execute  (Events)  ( 
editor->Save ( ) ; 

) 

); 

class  SaveAsCommand  :  public  IdrawCommand  ( 
public : 

SaveAsCommand  (PullDownMenuActivator*  a.  Editor* 

:  (a,  "Save  As...",  SAVEASCHAR,  e,  mk)  (} 

void  Execute  (Events)  ( 
editor->SaveAs  () ; 

) 

); 


class  PrintCommand  :  public  IdrawCommand  ( 
public : 

PrintCommand  (PullDownMenuActivator*  a.  Editor* 
:  (a,  "Print...",  PRINTCHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->Print  () ; 

} 

); 


class  QuitCommand  :  public  IdrawCommand  ( 
public : 

QuitCommand  (PullDownMenuActivator*  a.  Editor*  e, 
:  (a,  "Quit",  QUITCHAR,  e,  mk)  {) 

void  Execute  (Events  e)  ( 
editor->Quit (e)  ; 

1 

); 


class  UndoCommand  :  public  IdrawCommand  { 
public : 


MapKey*  mk) 


MapKey*  mk) 


e,  MapKey*  mk) 


,  MapKey*  mk) 


MapKey*  mk) 
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UndoCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Undo",  UNDOCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->Undo ( )  ; 

) 

); 


class  RedoCommand  :  public  IdrawCommand  { 
public : 

RedoCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Redo",  REDOCHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
editor->Redo  0 ; 

) 

); 


class  CutCommand  :  public  IdrawCommand  { 
public : 

CutCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Cut",  CUTCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->Cut ( ) ; 

) 

); 


class  CopyCommand  :  public  IdrawCommand  { 
public : 

CopyCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Copy",  COPYCHAR,  e,  mk)  {) 
void  Execute  (Events)  { 
editor->Copy ( ) ; 

) 

); 


class  PasteCommand  :  public  IdrawCommand  ( 
public : 

PasteCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Paste",  PASTECHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->Paste ( )  ; 

) 

); 


class  DuplicateCommand  ;  public  IdrawCommand  ( 
public : 

DuplicateCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Duplicate",  DUPLICATECHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
editor->Duplicate  ( ) ; 

) 

)  ; 
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class  DeleteCommand  :  public  IdrawCommand  ( 
public : 

DeleteCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Delete",  DELETECHAR,  e,  mk)  (} 

void  Execute  (Events)  { 
editor->Delete () ; 

) 

); 


class  SelectAllCommand  :  public  IdrawCommand  { 
public : 

SelectAllCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Select  All",  SELECTALLCHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
editor->SelectAll () ; 

) 

); 


//  The  following  code  was  commented  out  because  these  commands  were 
//  not  needed  in  a  data  flow  diagram  specific  drawing  editor 

/*  *****  start  of  Commerted  Out  Code  ***** 

class  FlipHorizont-^  ^mmand  :  public  IdrawCommand  ( 
public : 

FlipHorizontuxCommand  (PullDownMenuActivator*  a,  Editor*  e,  MapKey* 

mk) 

;  (a.  Flip  Horizontal",  FLIPHORIZONTALCHAR,  e,  mk)  {} 
void  Execute  (Events)  ( 
edit-  or->FlipHorizontal  ( )  ; 

) 

}; 


class  FlipVerticalCommand  :  public  IdrawCommand  { 
public : 

FlipVerticalCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Flip  Vertical",  FLIPVERTICALCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->FlipVertical () ; 

) 

); 


class  _90ClockwiseCommand  :  public  IdrawCommand  { 
public : 

_90ClockwiseCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "90  Clockwise",  _90CLOCKWISECHAR,  e,  mk)  {] 

void  Execute  (Events)  ( 
editor->_90Clockwise ( ) ; 

) 

}; 


class  _90CounterCWCommand  :  public  IdrawCommand  { 
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public: 

_90CounterCWCoinmand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "90  CounterCW",  _90COUNTERCWCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->_90CounterCW ( ) ; 

} 

); 

class  PreciseMoveCommand  :  public  IdrawCommand  ( 
public: 

PreciseMoveCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Precise  Move...",  PRECISEMOVECHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->PreciseMove () ; 

) 

); 


class  PreciseScaleCommand  :  public  IdrawCommand  { 
public : 

PreciseScaleCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Precise  Scale...",  PRECISESCALECHAR,  e,  mk)  (} 

void  Execute  (Events)  { 
editor->PreciseScale  ( ) ; 

) 

); 


class  PreciseRotateCommand  :  public  IdrawCommand  { 
public: 

PreciseRotateCommand  (PullDownMenuActivator*  a,  Editor*  e,  MapKey*  mk) 
:  (a,  "Precise  Rotate...",  PRECISEROTATECHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->Preci3eRotate () ; 

) 

); 


class  GroupCommand  :  public  IdrawCommand  ( 
public : 

GroupCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Group",  GROUPCHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->Group ( ) ; 

) 

); 


class  UngroupCommand  :  public  IdrawCommand  { 
public : 

UngroupCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Ungroup",  UNGROUPCHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->Ungroup ( )  ; 

) 

); 
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class  BringToFrontCommand  :  public  IdrawCoiranand  { 
public: 

BringToFrontCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Bring  To  Front",  BRINGTOFRONTCHAR,  e,  mk)  {} 

void  Execute  (Events)  { 
editor->BringToFront  () ; 

} 

); 

class  SendToBackCommand  :  public  IdrawCommand  ( 
public: 

SendToBackCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 

:  (a,  "Send  To  Back",  SENDTOBACKCHAR,  e,  mk)  () 
void  Execute  (Events)  { 
editor->SendToBack () ; 

) 

); 


class  NumberOfGraphicsCommand  :  public  IdrawCommand  ( 
public : 

NumberOfGraphicsCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mk) 

:  (a,  "Number  of  Graphics",  NUMBEROFGRAPHICSCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->NumberOfGraphics () ; 

) 

); 

*****  End  of  Commented  Out  Code  *****  */ 

class  FontCommand  :  public  IdrawCommand  ( 
public : 

FontCommand  (PullDownMenuActivator*  a.  Editor*  e,  IFont*  f) 

:  (a,  f->GetPrintFontAndSize 0 ,  '\0',  e)  ( 
font  =  f; 

} 

void  Execute  (Events)  { 
editor->SetFont (font) ; 

) 

protected: 

void  Reconfig  ()  ( 

Font*  f  “  *font; 
if  (output->GetFont ( )  !*  f)  ( 

Painter*  copy  “  new  Painter (output) ; 
copy->Reference ( ) ; 

Unref (output) ; 
output  *  copy; 
output->SetFont  (f ) ; 

} 

IdrawCommand: : Reconfig () ; 

) 

void  Resize  ()  (  //  need  constant  left  pad  to  line  up  entries 
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const  int  xpad  =  6; 
name_x  =  xpad; 

name_y  =  (yroax  -  output->GetFont ( ) ->Height ( )  +1)  /  2; 
key_x  =  )cey_y  -  0; 

) 

IFont*  font;  //  stores  font  to  give  Editor 


static  const  ii't  PICXMAX  *=  47;  //  chosen  to  minimize  scaling  for  canvas 

static  const  int  PICYMAX  =  14; 

/ /  Brush  Command  was  commented  out  because  only  a  line  with  an  arrowhead 
//  on  the  right  end  of  the  line  will  be  used.  Broken  lines  and  lines 
//  without  arrowheads  are  not  used  in  PSDL  specific  DFD's.  It  was  decided 
//  to  not  give  the  user  the  choice  between  which  end  the  arrowhead  would 
/ /  be  placed  on  because  it  would  complicate  the  code  without  giving  the 
//  user  much  more  flexibility 

/*  *****  start  of  Commented  Out  Code  ***** 

class  BrushCommand  :  public  IdrawCommand  { 
public : 

BrushCommand  (PullDownMenuActivator*  a.  Editor*  e,  IBrush*  b) 

:  (a,  "None",  '\0',  e)  { 

brush  =  b; 

brindic  -  new  LineSelection (0,  0,  PICXMAX,  0); 
brindic->SetBrush (brush) ; 
brindic->SetColors (pblack,  pwhite) ; 
brindic->FillBg (true) ; 
brindic->SetPattern (psolid) ; 

) 

~BrushCommand  ()  ( 
delete  brindic; 

) 

void  Execute  (Events)  { 
editor->SetBrush (brush)  ; 

) 

void  Highlight  (boolean  on)  { 
if  (highlighted  !=  on)  { 

brindic->SetColors (brindic->GetBgColor ( )  ,  brindic->GetFgColor ( ) )  ; 

) 

IdrawCommand: : Highlight (on)  ; 

) 

protected: 

void  Reconfig  ()  ( 

IdrawCommand: : Reconfig ()  ; 

PColor*  fg  =  brindic->GetFgColor ()  ; 

PColor*  bg  =  brindic->GetBgColor ( )  ; 

if  (*fg  !=  output->GetFgColor ()  II  *bg  !=  output->GetBgColor ( ) )  ( 

fg  =  new  IColor (output->GetFgColor ( )  ,  ""); 
bg  =  new  IColor (output->GetBgColor () ,  "")  ; 
brindic->SetColors (fg,  bg)  ; 
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) 

) 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
if  (bru3h->None () )  ( 

IdrawCommand: : Redraw (1,  b,  r,  t) ; 

}  else  { 

output->ClearRect (canvas,  1,  b,  r,  t) ; 
brindic->Draw (canvas) ; 

) 

) 

void  Resize  ()  { 

IdrawConnnand:  :  Resize  ()  ; 

float  xmag  -  float (xmax  -  2*name_x)  /  PICXMAX; 
float  hy  “  float (ymax)  /  2; 
brindic->SetTransforTner  (nil) ; 
brindic->Scale (xmag,  1 . ) ; 
brindic->Tran3late (float (name_x) ,  hy) ; 

) 

IBrush*  brush;  //  stores  brush  to  give  Editor 

Graphic*  brindic;  //  displays  line  to  demonstrate  brush's  effect 

); 

*****  End  of  Commented  Out  Code  *****  */ 

class  PatternCommand  :  public  IdrawCommand  { 
public ; 

PatternCommand  (PullDownMenuActivator*  a.  Editor*  e,  IPattern*  p. 

State*  s) 

:  (a,  "None",  '\0',  e)  { 
fgcolor  =  s->GetFgColor 0 ; 
bgcolor  =  s->GetBgColor ( ) ; 
pattern  =  p; 
patindic  =  nil; 

) 

-PatternCommand  ()  { 

Unref (patindic) ; 

) 

void  Execute  (Events)  ( 
editor->SetPattern (pattern) ; 

) 

protected: 

void  Reconfig  ()  { 

IdrawCommand: : Reconfig ()  ; 
if  (patindic  "  nil)  ( 

patindic  =  new  Painter (output) ; 
patindic->Reference ( )  ; 

patindic->SetColors (*fgcolor,  *bgcolor) ; 
patindic->SetPattern (*pattern) ; 

) 

) 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
if  (pattern->None ( ) )  { 

IdrawCommand: : Redraw (1,  b,  r,  t) ; 
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)  else  { 

output->ClearRect (canvas,  1,  b,  r,  t); 

patindic->FillRect  (canvas,  name_x,name_y,xinax-name_x,yinax-name_y) 
output->Rect  (canvas,  name_x,  name_y,  xinax-naine_x,  yinax-name_y)  ; 

} 


) 

IColor*  fgcolor; 
IColor*  bgcolor; 
IPattern*  pattern; 
Painter*  patindic; 


//  stores  initial  foreground  color 
II  stores  initial  background  color 
//  stores  pattern  to  give  Editor 
//  fills  rect  to  demonstrate  pat's  effect 


class  ColorCommand  :  public  IdrawCommand  { 
public : 

ColorCommand  (PullDownMenuActivator*  a.  Editor*  e,  IColor*  c) 

:  (a,  c->GetName ( ) ,  '\0',  e)  { 
key  “  "  "; 

color  -  c; 
colorindic  =  nil; 

} 

'ColorCommand  ()  { 
key  =  nil; 

Unref (colorindic) ; 

) 

protected: 

void  Reconfig  ()  ( 

IdrawCommand: : Reconfig ( )  ; 
if  (colorindic  •==  nil)  { 

colorindic  ■=  new  Painter  (output)  ; 
colorindic->Ref erence ( )  ; 

colorindic->SetColors (*color,  colorindic->GetBgColor ( ) ) ; 

} 

) 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  ( 

IdrawCommand: : Redraw (1,  b,  r,  t) ; 

colorindic->FillRect (canvas,  key_x,  key_y,  xmax-name_x,  ymax-name_y) ; 
output->Rect (canvas,  key_x,  key_y,  xmax-name_x,  ymax-name_y) ; 

} 

IColor*  color;  //  stores  color  to  give  Editor 

Painter*  colorindic;  //  fills  rect  to  demonstrate  color's  effect 

}; 


class  FgColorCommand  :  public  ColorCommand  { 
public: 

FgColorCommand  (PullDownMenuActivator*  a.  Editor*  e,  IColor*  c) 
:  (a,  e,  c)  {) 

void  Execute  (Events)  { 
editor->SetFgColor (color) ; 

); 


class  BgColorCommand  :  public  ColorCommand  ( 


125 


public: 

BgColorCommand  (PullDownMenuActivator*  a.  Editor*  e,  IColor*  c) 
:  (a,  e,  c)  {) 
void  Execute  (Events)  { 
editor->SetBgColor (color) ; 

) 

); 


class  AlignLeftSidesCommand  :  public  IdrawCommand  ( 
public : 

AlignLeftSidesCommand  (PullDownMenuActivator*  a,  Editor*  e,  MapKey* 
m)c) 

:  (a,  "Left  Sides",  ALIGNLEFTSIDESCHAR,  e,  m)c)  {) 

void  Execute  (Events)  ( 
editor->AlignLeftSides () ; 

) 

); 


class  AlignRightSidesCommand  :  public  IdrawCommand  { 
public: 

AlignRightSidesCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mJc) 

:  (a,  "Right  Sides",  ALIGNRIGHTSIDESCHAR,  e,  m]c)  {) 

void  Execute  (Events)  { 
editor->AlignRightSides ()  ; 

) 

); 


class  AlignBottomsCommand  :  public  IdrawCommand  { 
public: 

AlignBottomsCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Bottoms",  ALIGNBOTTOMSCHAR,  e,  nOc)  {) 

void  Execute  (Events)  { 
editor->AlignBottoms () ; 

} 

); 


class  AlignTopsCommand  :  public  IdrawCommand  ( 
public : 

AlignTopsCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  m)c) 
:  (a,  "Tops",  ALIGNTOPSCHAR,  e,  nUc)  {) 

void  Execute  (Events)  { 
editor->AlignTop3 () ; 

) 

}; 


class  AlignVertCentersCommand  :  public  IdrawCommand  { 
public : 

AlignVertCentersCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  m)c) 

:  (a,  "Vert  Centers",  ALIGNVERTCENTERSCHAR,  e,  mk)  {} 

void  Execute  (Events)  ( 
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editor->AlignVertCenters ()  ; 

) 

); 


class  AlignHorizCentersCommand  :  public  IdrawConimand  { 
public: 

AlignHorizCentersCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mk) 

:  (a,  "Horiz  Centers",  ALIGNHORIZCENTERSCHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
editor->AlignHorizCenters () ; 

) 

); 


class  AlignCentersCommand  :  public  IdrawCommand  { 
public: 

AlignCentersCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Centers",  ALIGNCENTERSCHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->AlignCenters () ; 

) 

); 


class  AlignLeftToRightCommand  :  public  IdrawCommand  { 
public: 

AlignLeftToRightCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mk) 

:  (a,  "Left  To  Right",  ALIGNLEFTTORIGHTCHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->AlignLeftToRight () ; 

) 

); 


class  AlignRightToLeftCommand  :  public  IdrawCommand  ( 
public: 

AlignRightToLeftCommand  (PullDownMenuActivator*  a,  Editor*  e, 

MapKey*  mk) 

:  (a,  "Right  To  Left",  ALIGNRIGHTTOLEFTCHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->AlignRightToLeft () ; 

) 

); 


class  AlignBottomToTopCommand  :  public  IdrawCommand  { 
public : 

AlignBottomToTopCommand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mk) 

:  (a,  "Bottom  To  Top",  ALIGNBOTTOMTOTOPCHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->AlignBottomToTop ( ) ; 

} 

); 
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class  AlignTopToBottomCommand  :  public  IdrawConimand  { 
public: 

AlignTopToBottomCoinmand  (PullDownMenuActivator*  a.  Editor*  e, 

MapKey*  mk) 

:  (a,  "Top  To  Bottom",  ALIGNTOPTOBOTTOMCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->AlignTopToBottom() ; 

) 

); 


class  AlignToGridCommand  :  public  IdrawCommand  { 
public: 

AlignToGridCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Align  To  Grid",  ALIGNTOGRIDCHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->AlignToGrid() ; 

} 

); 


class  ReduceCommand  :  public  IdrawCommand  { 
public : 

ReduceCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Reduce",  REDUCECHAR,  e,  mk)  (} 

void  Execute  (Events)  ( 
editor->Reduce ( ) ; 

) 

); 


class  EnlargeCommand  :  public  IdrawCommand  ( 
public: 

EnlargeCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Enlarge",  ENLARGECHAR,  e,  mk)  () 

void  Execute  (Events)  ( 
editor->Enlarge ( ) ; 

) 

); 


class  Normals! zeComraand  :  public  IdrawCommand  ( 
public: 

Normals! zeCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Normal  Size",  NORMALS I ZECHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->NormalSize  0 ; 

) 

); 


class  ReduceToFitCommand  :  public  IdrawCommand  ( 
public : 

ReduceToFitCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Reduce  To  Fit",  REDUCETOFITCHAR,  e,  mk)  {) 

void  Execute  (Events)  ( 
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editor->ReciuceToFit  () ; 

) 

); 


class  CenterPageCommand  :  public  IdrawCommand  { 
public: 

CenterPageCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  rOc) 
:  (a,  "Center  Page",  CENTERPAGECHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->CenterPage () ; 

) 

); 


class  RedrawPageCommand  :  public  IdrawCommand  ( 
public: 

RedrawPageCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Redraw  Page",  REDRAWPAGECHAR,  e,  mk)  {) 
void  Execute  (Events)  { 
editor->RedrawPage () ; 

) 

); 


class  GriddingOnOff Command  :  public  IdrawCommand  { 
public : 

GriddingOnOff Command  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Gridding  on/off",  GRIDDINGONOFFCHAR,  e,  mk)  () 

void  Execute  (Events)  { 
editor->GriddingOnOff () ; 

} 

); 


class  GridVisibleInvisibleCommand  :  public  IdrawCommand  ( 
public : 

GridVisibleInvisibleCommand  (PullDownMenuActivator*  a, Editor*  e, 

MapKey*  mk) 

:  (a,  "Grid  visible/invisible",  GRIDVISIBLEINVISIBLECHAR,  e,  mk)  ( } 

void  Execute  (Events)  { 
editor->GridVisibleInvisible ( ) ; 

) 

); 


class  GridSpacingCommand  :  public  IdrawCommand  { 
public : 

GridSpacingCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Grid  spacing...",  GRIDSPACINGCHAR,  e,  mk)  {) 

void  Execute  (Events)  { 
editor->GridSpacing ( ) ; 

) 

); 


class  OrientationCommand  :  public  IdrawCommand  { 
public : 
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OrientationCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "Orientation",  ORIENTATIONCHAR,  e,  mk)  {) 
void  Execute  (Events)  ( 
editor->Orientation {) ; 

) 

); 


class  ShowVersionCotnmand  :  public  IdrawCommand  { 
public: 

ShowVersionCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  (a,  "",  SHOWVERSIONCHAR,  e,  mk)  ( 

Listen (noEvents) ; 

) 

void  Execute  (Events)  { 
editor->ShowVersion ( ) ; 

) 

protected: 

void  Reconfig  ()  { 
shape->width  -  shape->height  -  0; 

) 

); 


//  Commands  creates  its  commands. 

Commands :: Commands  (Editor*  e,  MapKey*  mk.  State*  s)  { 

Init(e,  mk,  s); 

) 

//  Init  creates  the  activators  and  commands,  inserts  the  commands  into 
//  menus,  gives  the  menus  to  the  activators,  and  inserts  the  activators. 

void  Commands :: Init  (Editor*  e,  MapKey*  mk.  State*  state)  ( 
PullDownMenuActivator*  prot  • 

new  PullDownMenuActivator (this,  "Prototype"); 
PullDownMenuActivator*  edit  - 

new  PullDownMenuActivator (this,  "Edit"); 

//  the  Structure  and  Brush  pulldown  menus  were  removed  because  each  of 
their 

/ /  components  were  not  needed  in  a  DFD  drawing  editor 

/*  *****  start  of  Commented  Out  Code  ***** 

PullDownMenuActivator*  strc  « 

new  PullDownMenuActivator (this,  "Structure"); 
PullDownMenuActivator*  brush  « 

new  PullDownMenuActivator (this,  "brush"); 

*****  Enji  Qf  Commented  Out  Code  *****  */ 

PullDownMenuActivator*  font  «  new  PullDownMenuActivator (this,  "Font"); 
PullDownMenuActivator*  pat  - 

new  PullDownMenuActivator (this,  "Pattern"); 
PullDownMenuActivator*  fgcolor  » 
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// 

// 

// 


// 

// 

// 

// 

// 

// 


// 

/* 


new  PullDownMenuActivator (this, "FgColor" ) ; 
PullDownMenuActivator*  bgcolor  “ 

new  PullDownMenuActivator (this, "BgColor" ) ; 
PullDownMenuActivator*  align  - 

new  PullDownMenuActivator (this,  "Align"); 
PullDownMenuActivator*  option  - 

new  PullDownMenuActivator (this,  "Option"); 

Scene*  protmenu  new  VBox; 

protmenu->Insert  (new  NewConimand(prot,  e,  mk)); 
protmenu->Insert  (new  RevertCoinmand(prot,  e,  mJc) )  ; 
protmenu->Insert  (new  PullDownMenioDivider)  ; 
protmenu->Insert  (new  OpenCommand (prot ,  e,  mJc) )  ; 
protmenu->Inaert  (new  SaveConimand(prot,  e,  m)c) )  ; 
protinenu->Inaert  (new  SaveAsConiinand(prot,  e,  m)c) )  ; 
protinenu->Insert  (new  PrintCoinmand(prot,  e,  mk) ) ; 
protinenu->In3ert  (new  PullDownMenuDivider) ; 
protmenu->Insert  (new  QuitCommand(prot,  e,  m)c) )  ; 

Scene*  editmenu  -  new  VBox; 

editmenu->Insert  (new  UndoConimand(edit,  e,  mk) )  ; 
editmenu->Insert  (new  RedoConimand(edit,  e,  mk) )  ; 
editmenu->Insert (new  CutCommand(edit,  e,  mk) )  ; 
editmenu->Insert (new  CopyCommand(edit,  e,  mk) ) ; 
editmenu->Insert (new  PasteCommand(edit,  e,  mk) )  ; 
editmenu->lnsert (new  DuplicateCommand(edit,  e,  mk) ) ; 
€ditmenu->Insert (new  DeleteCommand(edit,  e,  mk) ) ; 
editmenu->In3ert (new  SelectAllCommand(edit,  e,  mk) )  ; 

The  following  commands  were  removed  from  user' s  view 

*****  start  of  Commented  Out  Code  ***** 


editmenu->Insert (new 
editmenu->Insert (new 
editmenu->In3ert (new 
editmenu->Insert (new 
editmenu->Insert (new 
editmenu->lnsert (new 
editmenu->Insert (new 
editmenu->Insert (new 
editmenu->Insert (new 


PullDownMenuDivider)  ; 
FlipHorizontalCommand(edit,  e,  mk) ) ; 
FlipVerticalCommand (edit,  e,  mk) )  ; 
_90ClockwiseCommand (edit,  e,  mk) ) ; 
_90CounterCWCommand (edit,  e,  mk) ) ; 
PullDownMenuDivider) ; 
PreciseMoveCommand (edit,  e,  mk) ) ; 
PreciseScaleCommand(edit,  e,  mk) ) ; 
PreciseRotateCommand (edit,  e,  mk) ) ; 


Scene*  structuremenu  *  new  VBox; 

structuremenu->In3ert (new  GroupCommand(strc,  e,  mk) ) ; 
structuremenu->Insert (new  UngroupCommand(strc,  e,  mk) )  ; 
structuremenu->Insert (new  BringToFrontCommand (strc,  e,  mk) ) ; 
structuremenu->Insert (new  SendToBackCommand (strc,  e,  mk) ) ; 
structuremenu->Insert (new  PullDownMenuDivider) ; 

structuremenu->Insert (new  NumberOfGraphicsCommand (strc,  e,  mk) ) 
*****  End  of  Commented  Out  Code  *****  */ 
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Scene*  fontmenu  -  new  VBox; 

MapIFont*  mf  -  state->GetMapIFont () ; 

for  (IFont*  f  “  mf->First ( ) ;  !mf->AtEnd ( ) ;  f  •  mf->Next())  { 
f ontinenu->Insert  (new  FontCommand (font,  e,  f )  ) ; 

) 

//  The  following  connnanda  were  removed 
/*  *****  Start  of  Commented  Out  Code  ***** 


Scene*  brushmenu  -  new  VBox; 

MapIBrush*  mb  -  state->GetMapIBru3h ()  ; 

for  (IBrush*  b  -  mb->First();  !mb->AtEnd() ;  b  -  mb->Next () )  ( 
bru3hmenu->Insert (new  Bru3hCommand(bru3h,  e,  b) ) ; 

) 

*****  End  of  Commented  Out  Code  *****  */ 


Scene*  patternmenu  «  new  VBox; 

MapIPattern*  mp  -  state-X^tMapIPattern  () ; 

for  (IPattern*  p  »  n^->Fir3t();  ! n^->AtEnd ( ) ;  p  •  mp->Next())  ( 
patternmenu->In3ert (new  PatternCommand(pat,  e,  p,  atate) ) ; 

) 


Scene*  fgcolormenu  «  new  VBox; 

MapIColor*  mfg  ■  3tate->GetMapIFgColor () ; 

for  (IColor*  fg  ■>  mfg->Fir3t  () ;  !mfg->AtEnd() ;  fg  -  mfg->Next())  ( 
fgcolormenu->In3ert (new  FgColorCommand(fgcolor,  e,  fg) ) ; 

f 

Scene*  bgcolormenu  -  new  VBox; 

MapIColor*  mbg  ■■  3tate->GetMapIBgColor  () ; 

for  (IColor*  bg  “  mbg->Fir3t () ;  !mbg->AtEnd( ) ;  bg  “  mbg->Next())  i 
bgcolormenu->Insert (new  BgColorCommand (bgcolor,  e,  bg) ) ; 

) 


Scene*  alignmenu 

alignmenu->Insert 

alignmenu->Insert 

alignmenu->In3ert 

alignmenu->Insert 

alignmenu->Insert 

alignmenu->Insert 

alignmenu->Insert 

alignmenu->Insert 

alignmenu->In3ert 

alignmenu->In3ert 

alignmenu->In3ert 

alignmenu->In3ert 


“  new  VBox; 

(new  AlignLeftSidesCommand  (align,  e,  m)c)  )  ; 
(new  AlignRightSideaCommand (align,  e,  m)c)  )  ; 
(new  AlignBottomsCommand (align,  e,  m)c)  )  ; 

(new  AlignTopaCommand (align,  e,  m)c)  )  ; 

(new  AlignVertCenteraCommand (align,  e,  m)c)  )  ; 
(new  AlignHorizCenteraCommand (align,  e,  m)c)  ) 
(new  AlignCenteraCommand (align,  e 
(new  AlignLeftToRightCommand(alig 
(new  AlignRightToLeftCommand (alig 
(new  AlignBottomToTopCommand (alig 
(new  AlignTopToBottomCommand (alig 
(new  AlignToGridCommand (align,  e. 


m)c)  ) 

; 

,  e. 

m)c)  ) 

,  e. 

m)c)  ) 

r  ® » 

mJc)  ) 

f  e. 

m)c)  ) 

m)c)  )  ; 

Scene*  optionmenu  -  new  VBox; 

optionmenu->Insert  (new  ReduceCommand  (option,  e,  m)c)  )  ; 
optionmenu->In3ert  (new  EnlargeCommand (option,  e,  m)c)  )  ; 
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optioninenu->Insert  (new 
optionmenu->Insert (new 
optionmenu->Insert (new 
optioninenu->Insert  (new 
optioninenu->Insert  (new 
optioninenu->Insert  (new 
optioninenu->Insert  (new 
optionmenu->Insert (new 
optioninenu->In3ert  (new 
optioninenu->Insert  (new 


NormalSizeCommand (option,  e,  mk) ) ; 
ReduceToFitCommand (option,  e,  mk) ) ; 
CenterPageCommand (option,  e,  mk) ) ; 
RedrawPageCommand (option,  e,  mk) ) ; 
PullDownMenuDivider )  ; 
GriddingOnOffCommand (option,  e,  mk) ) ; 
GridVisibleInvisibleCommand (option,  e, 
GridSpacingCommand (option,  e,  mk) ) ; 
OrientationCommand (option,  e,  mk) ) ; 
ShowVersionCommand (option,  e,  mk) ) ; 


mk)  ) 


prot->SetMenu (protmenu) ; 
edit->SetMenu (editmenu) ; 


I*  *****  Start  of  Commented  Out  Code  ***** 
strc->SetMenu (structuremenu)  ; 
brush->SetMenu (bruahmenu)  ; 

*****  End  Of  Commented  Code  *****  */ 


font->SetMenu (fontmenu) ; 
pat->SetMenu (patternmenu)  ; 
fgcolor-'>SetMenu  (fgcolormenu)  ; 
bgcolor->SetMenu (bgcolormenu)  ; 
align->SetMenu (alignmenu) ; 
option->SetMenu (optionmenu) ; 

Scene*  activators  -  new  HBox; 
activators->Insert (prot)  ; 
activators->Insert (edit)  ; 

/*  *****  start  of  Commented  Out  Code  ***** 

activator3->Insert (strc)  ; 
activator3->In3ert (brush) ; 

*****  End  of  Commented  Out  Code  *****  */ 

activator3->Insert (font) ; 
activators->Insert (pat) ; 
activators->Insert (fgcolor)  ; 
activators->Insert (bgcolor)  ; 
activators->Insert (align)  ; 
activators->In3ert (option)  ; 

Insert (activators)  ; 

) 

//  Reconfig  makes  Commands'  shape  unstretchable  but  shrinkable. 

void  Commands :: Reconfig  ()  { 

PullDownMenuBar : : Reconfig ()  ; 
shape->Rigid (hfil,  0,  0,  0)  ; 

) 
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//  file  cifd_defs.h 

//  description:  Defines  all  graphic  editor-specific  variables. 

/*  Changes  made  to  conform  Idraw  into  CAPS  graphic  editor: 

*  Define  values  that  are  needed  for  the  data  flow  diagram. 

*  This  header  file  was  created  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  Change  made:  August  18,  1990 
*/ 

#ifndef  dfd_defs_h 
♦define  dfd_defs_h 

♦include  <InterViews/defs.h> 

//  pixel  radius  of  operator  (ellipse) 

♦define  OperatorRadius  35 

//  number  of  characters  in  PSDL  representation  of  operator 
♦define  TXTBUFLEN  5000 

//  max  number  of  prototypes  in  prototype  directory 
♦define  MAXPROTOTYPES  100 

//  name  of  scratch  file  used  to  edit  PSDL  for  operator 
♦define  PSDL_FILE  "psdl . scratch" 

//  maximum  length  of  message  for  message  block 
♦define  MAXMSGLEN  150 

//  name  of  scratch  file  used  to  write  PSDL  streams 
♦define  STREAMS_FILE  "streams . scratch" 

//  name  of  scratch  file  used  to  write  PSDL  constraints 
♦define  CONSTRAINTS_FILE  "constraints . scratch" 

//  name  of  file  extensions 

♦define  GRAPH_EXT  ".ps" 

♦define  GRAPH_EXT_LEN  3 
♦define  1MP_PSDL_EXT  ".inp.psdl" 

♦define  IMP_EXT_LEN  9 

♦define  SPEC_PSDL_EXT  ".spec. psdl" 

♦define  SPEC_EXT_LEN  10 
♦define  DFD_EXT  ".graph" 

♦define  DFD_EXT_LEN  6 

//  keywords  to  be  inserted  when  creating  PSDL 
♦define  OPER_TKN  "OPERATOR  " 

♦define  SPEC  TKN  "  SPECIFICATION\n" 
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♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

sion>\n 


DESC_TKN  " 

DESCRIPTION  " 

TEXT_TKN  "{ 

<text>  }\n" 

END_TKN  " 

END\n" 

IMP_TKN  " 

I MP LEMENT AT I ON \ n " 

GR_TKN  " 

GRAPHNn" 

VER_TKN  " 

VERTEX  " 

EDGE_TKN  " 

EDGE  " 

ID_TKN  "<id> 

t1 

EXT  TKN  "EXTERNAL" 

INPUT_TKN 

If 

INPUT\n" 

OUTPUT_TKN 

If 

OUTPUT \n" 

TYPE_DECL_TKN 

"  <id>  :  <type_name>" 

IMP_ADA_TKN 

fl 

IMPLEMENTATION  ADA  " 

STREAM_TKN 

It 

DATA  STREAMS \n" 

ST_TKN  " 

STATES  <id>  :  <type_name>  initially  <expres 

♦define  MET  TKN 


MAXIMUM  EXECUTION  TIME 


//  keywords  to  be  used  for  search  through  PSDL  text  buffer.  They  are 
//  different  from  those  above  because  the  text  buffer  can't  ever  locate 


//  newlines 

♦define  INPUT_SCH_TKN  " 
♦define  SPEC_SCH_TKN  " 
♦define  OUTPUT_SCH_TKN 
♦define  GEN_SCH_TKN  " 
♦define  STATES_SCH_TKN 
♦  define  EXCEPt3ch_TKN 
♦define  MET_SCH_TKN 
♦define  MCP_SCH_TKN 
♦define  MRT_SCH_TKN 
♦define  KEY_SCH_TKN 
♦define  DESC_SCH_TKN 
♦define  AX_SCH_TKN 
♦define  END_SCH_TKN 
♦define  STREAM_SCH_TKN 
♦define  TIMER_SCH_TKN 
♦define  CON  SCH  TKN 


INPUT" 

SPECIFICATION" 

"  OUTPUT" 

GENERIC" 

"  STATES" 

"  EXCEPTIONS" 

"  MAXIMUM  EXECUTION  TIME 

"  MINIMUM  CALLING  PERIOD" 

"  MAXIMUM  RESPONSE  TIME" 

"  KEYWORDS" 

"  DESCRIPTION" 

"  AXIOM" 

"  END" 

"DATA  STREAMS" 

"TIMER" 

"CONTROL  CONSTRAINTS" 


If 


♦define  STREAMS_SDE  "vi" 
♦define  CONSTRAINTS_SDE  "vi" 
♦define  SPECIFICATION  SDE  "vi" 


♦endif 
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//  file  dfdclasses . h 

//  description;  Sets  the  value  of  the  class  identifiers  for  all  of  the 
DFD  objects. 

/*  Changes  made  to  conform  Idraw  into  CAPS  graphic  editor: 

*  Define  class  identifiers  for  each  of  the  DFD  con^onents  in  order  to 

*  identify  what  selection  is  being  manipulated. 

*  Changed  class  id  TEXT  to  be  LABEL_OP,  LABEL_DF,  LABEL_SL,  or  COMMENT 

*  in  order  to  tell  what  type  of  text  we  have. 

*  This  header  file  was  made  specifically  for  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  September  3,  1990 
*/ 

#ifndef  dfdclasses_h 
#define  dfdclasses  h 


static  const  int  OPERATOR  -  2050; 

//  static  const  int  DATAFLOW_LINE  «  2051; 
static  const  int  DATAFLOW_SPLINE  =  2052; 

static  const  int  SELFLOOP  ■=  2053; 

static  const  int  LABEL_OP  *  2054; 

static  const  int  LABEL_DF  •=  2055; 

static  const  int  LABEL_SL  =  2056; 

static  const  int  COMMENT  •=  2057; 

static  const  int  MET_OP  =  2058; 

static  const  int  LAT_DF  -=  2059; 

static  const  int  NONE  =  2099; 


#endif 


136 


//  file  dfdsplinelist . h 

//  description:  Class  description  for  DFDSplineSelList  class. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  definition  of  DFD  spline  selection  class. 

*  This  file  was  created  specifically  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  22,  1990 
*/ 

#ifndef  dfdsplinelist_h 
♦define  dfdsplinelist_h 

♦include  "list.h" 

//  declare  imported  classes 

class  BSplineSelection; 
class  DFDSplineSelection; 

//  This  class  defines  a  node  to  be  contained  in  the  dfd  spline 
//  selection  list 


class  DFDSplineSelNode  :  public  BaseNode  { 
public: 

DFDSplineSelNode (DFDSplineSelection*  dss)  {  dfdsplsel  =  dss;  ) 
boolean  SameValueAs (void*  p)  {  return  dfdsplsel  ==  p;  ) 
DFDSplineSelection*  GetSelection ()  {  return  dfdsplsel;  } 


protected: 

DFDSplineSelection*  dfdsplsel; 


); 


//  points  to  a  DFD  spline 
//  selection 


//  This  class  defines  a  list  of  spline  selections 

class  DFDSplineSelList:  public  BaseList  { 
public : 

DFDSplineSelNode*  First (); 

DFDSplineSelNode*  LastO; 

DFDSplineSelNode*  Prev ( ) ; 

DFDSplineSelNode*  Next ()  ; 

DFDSplineSelNode*  GetCur ( )  ; 
void  SetCur (BSplineSelection*) ; 
DFDSplineSelNode*  Index (int) ; 

}; 

inline  DFDSplineSelNode*  DFDSplineSelList :: First ( )  { 

return  (DFDSplineSelNode*)  BaseList :: First {)  ; 

} 
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inline  DFDSplineSelNode*  DFDSplineSelList : : Last ( )  { 
return  (DFDSplineSelNode*)  BaseList; :Last () ; 

) 

inline  DFDSplineSelNode*  DFDSplineSelList: :Prev()  ( 
return  (DFDSplineSelNode*)  BaseList: :Prev() ; 

) 

inline  DFDSplineSelNode*  DFDSplineSelList: : Next ()  { 
return  (DFDSplineSelNode*)  BaseList: :Next () ; 

) 

inline  DFDSplineSelNode*  DFDSplineSelList: :GetCur()  { 
return  (DFDSplineSelNode*)  BaseList: :GetCur() ; 

) 

inline  DFDSplineSelNode*  DFDSplineSelList :: Index (int  index)  { 
return  (DFDSplineSelNode*)  BaseList :: Index (index) ; 

) 

#endif 
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//  file  dfdsplinelist .  c 

//  description:  Inplementation  for  DFDSplineSelList  class. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  iir^slementation  of  DFD  spline  selection  list  class. 

*  This  file  was  created  specifically  for  the  graphic  editor. 

•k 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  22,  1990 

*/ 


♦include  "dfdsplinelist. h" 

♦include  "sldfdspline.h" 

♦include  "slsplines . h" 

//  SetCur  searches  the  list  of  dfd  spline  selections  to  make  the  current 
//  node  be  the  one  that  matches  the  given  spline  selection 

void  DFDSplineSelList :: SetCur (BSplineSelection*  ss)  { 
for  (First  0;  !At5nd();  NextO)  { 

if  (GetCur {) ->GetSelection {) ->GetSplineSelection ( )  ==  ss) 
return; 

) 

return; 

) 
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//file  dialgobox.h 

//  description:  Class  description  of  DialogBox  class  and  its  subclasses. 

//  $Header:  dialogbox.h, v  1.11  89/10/09  14:47:47  linton  Exp  S 
//  declares  class  DialogBox  and  DialogBox  subclasses. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor; 

*  Add  new  subclass  Chooser  to  display  a  dialog  box  of  3  button  choices 

*  and  a  cancel  button. 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  16,  1990 
*t 

#ifndef  dialogbox_h 
♦define  dialogbox_h 

♦include  <InterViews/f ilechooser . h> 

//  Declare  imported  types. 

class  ButtonState; 
class  IMessage; 
class  StringEditor; 

//A  DialogBox  knows  how  to  set  its  message  and  warning  text  and  how 
//  to  pop  up  itself  over  the  underlying  Interactor. 

class  DialogBox  :  public  MonoScene  { 
public : 

void  SetMessage (const  char*  =  nil,  const  char*  =  nil); 
void  Setwarning (const  char*  =  nil,  const  char*  =  nil); 
void  SetUnderlying (Interactor*) ; 

protected: 

DialogBox (Interactor* ,  const  char*  =  nil); 

void  Popup  0; 
void  Disappear  0; 

IMessage*  message;  //  displays  message  text 
IMessage*  warning;  //  displays  warning  text 

Interactor*  underlying;  //  we'll  insert  ourselves  into  its  parent 


)  ; 

//  A  Messager  displays  a  message  until  it's  acknowledged, 
class  Messager  :  public  DialogBox  ( 
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public : 


Messager (Interactor*,  const  char*  =  nil); 

“Messager  0  ; 

void  Display  0; 

protected: 

void  Init ( ) ; 
void  Reconf ig ( )  ; 

ButtonState*  ok;  //  stores  status  of  "ok"  button 
Interactor*  okbutton;  //  displays  "ok"  button 


); 


//  A  Confirmer  displays  a  message  until  it's  confirmed  or  cancelled. 

class  Confirmer  :  public  DialogBox  { 
public: 

Confirmer (Interactor*,  const  char*  «  nil); 

“Confirmer  0  ; 

char  ConfirmO; 

protected: 

void  Init ( )  ; 
void  ReconfigO; 

ButtonState*  yes;  //  stores  status  of  "yes"  button 

ButtonState*  no;  //  stores  status  of  "no"  button 

ButtonState*  cancel;  //  stores  status  of  "cancel"  button 
Interactor*  yesbutton;  //  displays  "yes  button 
Interactor*  nobutton;  //  displays  "no"  button 
Interactor*  cancelbutton;  //  displays  "cancel"  button 


); 

//  A  Namer  displays  a  string  until  it's  edited  or  cancelled. 

class  Namer  :  public  DialogBox  ( 
public : 

Namer (Interactor* ,  const  char*  =  nil); 

“Namer () ; 

char*  Edit (const  char*); 
protected: 
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void  InitO; 
void  ReconfigO; 

ButtonState*  accept;  1 1  stores  status  of  "accept"  button 
ButtonState*  cancel;  //  stores  status  of  "cancel"  button 
Interactor*  acceptbutton;  //  displays  "accept"  button 
Interactor*  cancelbutton;  //  displays  "cancel"  button 
StringEditor*  stringeditor;  //  displays  and  edits  a  string 


); 

//A  Finder  browses  the  file  system  and  returns  a  file  name. 

class  Finder  :  public  FileChooser  { 
public: 

Finder (Interactor*,  const  char*); 
const  char*  FindO; 
protected: 

Interactor*  Interior ( )  ; 

boolean  Popup (Events,  boolean  ■  true); 

protected: 

Interactor*  underlying;  //  we'll  insert  ourselves  into  its  parent 

); 


//  A  Chooser  displays  a  set  of  choices  and  are  displayed  until  one  is 
//  chosen  or  is  cancelled. 


class  Chooser  :  public  DialogBox  { 
public: 


Chooser (Interactor*, 
“Chooser ( )  ; 


const  char*. 


const  char*, 
const 


const  char*, 
char*)  ; 


char  Choose  0; 


protected: 

void  InitO; 
void  ReconfigO; 

ButtonState*  bs_l; 
ButtonState*  bs_2; 
ButtonState*  bs  3; 


//  stores  status  of 
//  stores  status  of 
//  stores  status  of 
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first  button 
second  button 
third  button 


ButtonState*  cancel;  //  stores  status  of  "cancel"  button 
Interactor*  button_l;  //  displays  first  button 
Interactor*  button_2;  //  displays  second  button 
Interactor*  button_3;  //  displays  third  button 
Interactor*  cancelbutton;  //  displays  "cancel"  button 


}; 

#endif 
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//  file  dialogbox.c 

//  description:  Inplementation  of  DialogBox  class  and  its  subclasses. 


/* 

*  $Header:  dialogbox.c, v  1.17  89/10/09  14:47:45  linton  Exp  $ 

*  inplements  class  DialogBox  and  DialogBox  subclasses. 

*/ 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  irr^lementation  of  Chooser  class  to  allow  user  to  choose  from 

*  3  button  choices  and  a  cancel  button. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  16,  1990 
*/ 


tinclude 
# include 
#include 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 
tinclude 


"dialogbox.h" 

"istring. h" 
<InterViewa/box.h> 
<InterViews/button . h> 
<InterViews/canvas . h> 
<InterViews/event . h> 
<InterViews/f ont . h> 
<lnterViews/f rame . h> 
<InterViewa/glue.h> 
<InterViews/message. h> 
<InterViews /painter . h> 
<InterViews/sensor .h> 
<InterViews/shape . h> 
<InterViewa/streditor .h> 
<InterViews/world. h> 


tinclude  <InterViews/Std/os/f s . h> 
tinclude  <sys/param. h> 


/* 

*  An  IMessage  displays  its  own  text,  not  somebody  else's. 
*/ 


class  IMessage  :  public  Message  { 
public : 

IMessage (const  char*  -  nil.  Alignment  a  =  Center); 
-IMessage () ; 

void  SetText (const  char*  «  nil,  const  char*  =  nil) ; 
protected: 

char*  buffer;  /*  stores  own  copy  of  text  */ 

); 


/* 

*  IMessage  creates  a  buffer  to  store  its  own  copy  of  the  text. 
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*/ 


IMessage : : IMessage  (const  char*  msg.  Alignment  a)  :  (nil,  a)  ( 
buffer  -  strdup(m3g  ?  msg  : 
text  «  buffr r; 


/* 

*  Free  storage  allocated  for  the  text  ouffer. 
*/ 


IMessage: : ~IMessage  ()  ( 
delete  buffer; 

) 

/* 

*  SetText  stores  the  new  text  and  changes  the  IMessage' s  shape  to  fit 

*  the  new  text's  width. 

*/ 

void  IMessage :: SetText  (const  char*  beg,  const  char*  end)  { 
beg  “  beg  ?  beg  : 
end  -  end  ?  end  : 
delete  buffer; 

buffer  “  new  char [strlen (beg)  +  strlen(end)  +  1]; 
strcpy (buffer,  beg); 
strcat (buffer,  end); 
text  =  buffer; 

if  (canvas  !»  nil  &&  canvas->Status ()  *«  CanvasMapped)  { 

Reconfig  0 ; 

Parent ( ) ->Change (this) ; 

) 


/* 

*  DialogBox  creates  two  IMessages  to  display  a  message  and  a  warning 

*  and  stores  its  underlying  Interactor.  DialogBox  won't  delete  the 

*  IMessages  so  its  derived  classes  can  put  them  in  boxes  which  will 

*  delete  them  when  the  boxes  are  deleted. 

*/ 


DialogBox:  .'DialogBox  (Interactor*  u,  const  char*  msg)  { 

SetCanvasType (CanvasSaveUnder) ;  /*  speed  up  expose  redrawing  if 

possible  */ 

input  “  allEvents; 
input->Reference ( ) ; 
message  =  new  IMessage (msg) ; 
warning  «  new  IMessage; 
underlying  «  u; 
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*  SetMessage  sets  the  message's  text. 

*! 

void  DlalogBox: : SetMessage  (const  char*  beg,  const  char*  end)  ( 
tnessage->SetText  (beg,  end) ; 

) 

/* 

*  Setwarning  sets  the  warning's  text. 

*/ 


void  DialogBox: : Setwarning  (const  char*  beg,  const  char*  end)  ( 
warning->SetText (beg,  end) ; 

} 

/* 

*  SetUnderlying  seta  the  underlying  Interactor  over  which  the 

*  DialogBox  will  pop  up  itself. 

*/ 


void  DialogBox: : SetUnderlying  (Interactor*  u)  ( 
underlying  “  u; 

) 

/* 

*  Popup  pops  up  the  DialogBox  centered  over  the  underlying 

*  Interactor's  canvas. 

*/ 


void  DialogBox: :PopUp  0  ( 

World*  world  underlying->GetWorld{) ; 

Coord  X,  y; 

underlying->Align (Center,  0,  0,  x,  y) ; 
underlying->GetRelative (X,  y,  world); 

world->InsertTransient (this,  underlying,  x,  y.  Center); 

) 

/* 

*  Disappear  removes  the  DialogBox.  Since  the  user  should  see 

*  warnings  only  once.  Disappear  clears  the  warning' s  text  so  the  next 

*  Popup  won't  display  it. 

*/ 

void  DialogBox:  :Disapj>ear  ()  ( 

Parent () ->Remove (this) ; 

Setwarning ( ) ; 

Sync  ( ) ; 


/* 

*  Messager  creates  its  button  state  and  initializes  its  view. 

*/ 
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Messager: :Messager  (Interactor*  u,  const  char*  msg)  :  (u,  msg)  ( 
ok  -  new  ButtonState (false) ; 

olcbutton  «  new  PushButton("  OK  ",  ok,  true); 

Init  ( ) ; 

) 

/* 

*  Free  storage  allocated  for  the  message's  button  state. 

*/ 


Messager :: -Messager  ()  { 

Unref (ok) ; 

) 

/* 

*  Display  pops  up  the  Messager  and  removes  it  when  the  user 

*  ac)cnowledges  the  message. 

*/ 

void  Messager: : Display  ()  ( 
o)c->SetValue  (false) ; 

Popup ( ) ; 

int  o)cay  false; 
while  (!o)cay)  ( 

Event  e; 

Read(e) ; 

if  (e.  event  Type  KeyEvent  &&  e.len  >0)  ( 

switch  (e. )cey3tring[0] )  ( 

case  ' \r' :  /*  CR  */ 

case  '\007':  /*  */ 

o)c->SetValue  (true)  ; 
brea)c; 

default : 
brea)(; 

) 

)  else  if  (e. target  •••  o)tbutton)  ( 
e . target->Handle (e) ; 

) 

o)c->C5etValue  (o)cay)  ; 

) 

Disappear ( ) ; 

) 

/* 

*  Init  composes  Messager' s  view  with  boxes,  glue,  and  frames. 
*/ 

void  Messager :: Init  ()  { 
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SetClassName ("Messager")  ; 


VBox*  vbox  “  new  VBox; 
vbox->Align (Center) ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (warning)  ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (message) ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert  (o)cbutton)  ; 
vbox->Insert (new  VGlue); 

Insert (new  Frame (vbox,  2)); 


*  Reconfig  pads  Messager' s  shape  to  malce  the  view  loolc  less  crowded. 


void  Messager :: Reconfig  ()  { 

DialogBox: : Reconfig () ; 

Font*  font  “  output ->GetFont ()  ; 

3hape->width  +-  2  *  font->Width ("mmmm") ; 
shape->height  +-  4  *  font->Height () ; 

) 

/* 

*  Confirmer  creates  its  button  states  and  initializes  its  view. 

*/ 

Confirmer: :Confirmer  (Interactor*  u,  const  char*  pronpt)  :  (u,  prompt)  { 

yes  -  new  ButtonState (false)  ; 

no  “  new  ButtonState (false) ; 

cancel  *  new  ButtonState (false) ; 

yesbutton  -  new  PushButtonC  Yes  ",  yes,  true); 

nobutton  -  new  PushButton("  No  ",  no,  true) ; 

cancelbutton  «  new  PushButton ("Cancel",  cancel,  true) ; 

Init  0  ; 

} 

/* 

*  Free  storage  allocated  for  the  button  states. 

*/ 


Confirmer :: -Confirmer  ()  ( 
Unref (yes) ; 

Unref (no)  ; 

Unref (cancel) ; 


*  Confirm  pops  up  the  Confirmer,  lets  the  user  confirm  the  message  or 
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*  not,  removes  the  Confirmer,  and  returns  the  confirmation. 
*/ 


char  Confirmer: : Confirm  ()  { 
yea->SetValue (false) ; 
no->SetValue (false) ; 
cancel->SetValue (false)  ; 

Popup ( ) ; 

int  confirmed  -  false; 
int  denied  =  false; 
int  cancelled  »  false; 

while  ((confirmed  &&  (denied  &&  (cancelled) 
Event  e; 

Read(e) ; 

if  (e. event Type  --  KeyEvent  &&  e.len  >0)  { 
switch  (e . )teystring [0] )  ( 
case  'y' : 
case  'Y' : 

yes->SetValue (true) ; 
brea)c; 

case  ' n' : 
case  'N' : 

no->SetValue (true) ; 
brea)c; 

case  ' \r' :  /*  CR  */ 

case  '\007'  :  /*  */ 

cancel->SetValue (true) ; 
brea)c; 

default : 
break; 

) 

)  else  if  (e. target  ==  yesbutton  | |  e. target  =■ 
e. target  ==  cancelbutton) 

( 

e . target->Handle (e) ; 

) 

yes->GetValue (confirmed) ; 
no->GetValue (denied) ; 
cancel->(3etValue  (cancelled) ; 

} 

Disappear () ; 

char  answer  *  'n'; 
answer  =  confirmed  ?  'y'  :  answer; 
answer  =  cancelled  ?  'c'  :  answer; 
return  answer; 


nobutton  I  I 


*  Init  con^oses  Confirmer's  view  with  boxes,  glue,  and  frames. 

*/ 

void  Confirmer :: Init  ()  { 

SetClassName ("Confirmer") ; 

HBox*  buttons  “  new  HBox; 
buttons->Insert (new  HGlue) ; 
buttons->Insert (yesbutton) ; 
buttons->Insert (new  HGlue) ; 
buttons->Insert (nobutton) ; 
buttons->Insert (new  HGlue) ; 
buttons->Insert (cancelbutton) ; 
buttons->In3ert (new  HGlue) ; 

VBox*  vbox  ">  new  VBox; 
vbox->Align (Center) ; 
vbox->lnsert (new  VGlue) ; 
vbox->lnsert (warning) ; 
vbox->lnsert (new  VGlue) ; 
vbox->Insert (message) ; 
vbox->lnsert (new  VGlue) ; 
vbox->Insert (buttons) ; 
vbox->lnsert (new  VGlue) ; 

Insert (new  Frame (vbox,  2)); 

) 

/* 

•  Reconfig  pads  Confirmer's  shape  to  ma)ce  the  view  loo)c  less  crowded. 
*/ 

void  Confirmer: : Reconfig  ()  { 

DialogBox : : Reconfig ( ) ; 

Font*  font  =  output->GetFont () ; 
shape->width  +-  4  *  font->Width ("mmmm") ; 
shape->height  +=  4  *  font->Height () ; 


/* 

*  Namer  creates  its  button  states  and  initializes  its  view. 

*/ 

Namer: : Namer  (Interactor*  u,  const  char*  prompt)  :  (u,  prompt)  ( 

accept  “  new  ButtonState (false) ; 
cancel  -  new  ButtonState (false) ; 

acceptbutton  -  new  PushButton("  OK  ",  accept,  true); 
cancelbutton  -  new  PushButton ("Cancel",  cancel,  true); 
const  char*  sample  *  " 

stringeditor  *  new  StringEditor (accept,  sample,  "\007\015"); 
stringeditor->Message ("")  ; 

InitO  ; 
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/* 

*  Free  storage  allocated  for  the  button  states. 

*/ 

Namer : : ~Namer  ()  { 

Unref (accept) ; 

Unref (cancel) ; 

) 

/* 

*  Edit  pops  up  the  Namer,  lets  the  user  edit  the  given  string, 

*  removes  the  Namer,  and  returns  the  edited  string  unless  the  user 

*  cancelled  it. 

*/ 

char*  Namer: :Edit  (const  char*  string)  { 
accept->SetValue (false) ; 
cancel->SetValue (false) ; 
if  (string  !=  nil)  { 
stringeditor->Message (string) ; 

} 

stringeditor->Select (0,  strlen (stringeditor->Text ( ) ) ) ; 

Popup ( ) ; 

int  accepted  -  false; 
int  cancelled  »  false; 
while  (! accepted  £&  (cancelled)  ( 
stringeditor->Edit () ; 
accept->GetValue (accepted)  ; 
if  (accepted  ==  '\007')  { 

accept->SetValue (false) ; 
cancel->SetValue (true) ; 

}  else  if  (accepted  ==  '\015')  { 
accept->SetValue (true) ; 
cancel->SetValue (false) ; 

)  else  { 

Event  e; 

Read (e) ; 

if  (e. target  ==  acceptbutton  ||  e. target  ==  cancelbutton)  ( 
e . target->Handle (e) ; 

) 

) 

accept->GetValue (accepted) ; 
cancel->GetValue (cancelled) ; 

) 

Disappear ( ) ; 
char*  result  =  nil; 
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if  (accepted)  { 

const  char*  text  3tringeditor->Text  () ; 
if  (text[0]  !-  '\0')  ( 

result  *  strdup(text) ; 

} 

) 

return  result; 

) 

/* 

*  Init  composes  Namer' s  view  with  boxes,  glue,  and  frames. 

*/ 

void  Namer;: Init  0  { 

SetClassName ("Namer") ; 

HBox*  hboxedit  “  new  HBox; 
hboxedit->Insert (new  HGlue(5,  0,  0)); 
hboxedit->Insert (stringeditor) ; 
hboxedit->Insert (new  HGlue(5,  0,  0) )  ; 

VBox*  vboxedit  «  new  VBox; 
vboxedit->Insert (new  VGlue(2,  0,  0)); 
vboxedit->Insert (nboxedit) ; 
vboxedit->Insert (new  VGlue(2,  0,  0)); 

HBox*  buttons  “  new  HBox; 
buttons->Insert (new  HGlue) ; 
buttons->lnsert (acceptbutton) ; 
buttons->Insert (new  HGlue) ; 
buttons->lnsert (cancelbutton) ; 
buttons->Insert (new  HGlue) ; 

VBox*  vbox  =  new  VBox; 
vbox->Align (Center) ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (warning)  ; 
vbox->Insert (new  VGlue) ; 
vbox->In3ert (message)  ; 
vbox->In3ert (new  VGlue); 
vbox->Insert (new  Frame (vboxedit,  1) ) ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (buttons)  ; 
vbox->Insert (new  VGlue) ; 

vbox->Propagate (false) ;  /*  for  reshaping  stringeditor  w/o  looping  */ 
Insert (new  Frame (vbox,  2) ) ; 

) 

/* 

*  Reconfig  pads  Namer' s  shape  to  make  the  view  look  less  crowded. 

*/ 
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void  Namer : : Reconfig  ()  { 

DialogBox: : Reconfig ()  ; 

Shape  s  “  *stringeditor->GetShape ()  ; 
s . Rigid ( ) ; 

stringeditor->Reshape (s) ; 

Font*  font  =  output ->GetFont () ; 
shape->width  +-  2  *  font->Width ("mmmm") ; 
3hape->height  +=  4  *  font->Height () ; 

) 

static  const  char*  abspath  (const  char*  file  =  nil)  ( 
const  int  bufsize  =  MAXPATHLEN+1; 
static  char  buf [bufsize] ; 

getcwd(buf,  bufsize); 
strcat(buf,  "/")  ; 

if  (file  !•=  nil)  { 

strcat (buf,  file) ; 

1 

return  buf; 

} 

Finder: : Finder  ( 

Interactor*  u,  const  char*  t 
)  :  (new  ButtonState,  abspathO,  10,  24,  Center)  ( 
underlying  =  u; 

InitC”’,  t); 

Insert (Interior ( ) ) ; 

) 

static  const  char*  ChdirIfNecessary  (Finder*  finder)  i 
static  char  buf [MAXPATHLEN+1 ] ; 
const  char*  filename  =  finder->Choice () ; 
strcpy(buf,  filename); 
char*  bufptr  =  strrchr(buf,  '/'); 

if  (bufptr  !=  NULL)  { 

*bufptr  =  ' \0' ; 
if  (chdir(buf)  ==  0)  ( 

filename  =  ++bufptr; 
f inder->Message (abspath (filename) ) ; 

) 

) 

f inder->SelectFile  ( ) ; 
return  filename; 

} 

const  char*  Finder: :Find  ()  { 

const  char*  name  =  nil; 

Event  e; 


153 


if  (Popup (e))  { 

name  »  ChdirIfNecessary (this) ; 
) 

return  name; 


Interactor*  Finder :: Interior  ()  ( 

return  new  Frame (FileChooser: : Interior ("  Open  "),  2) ; 

) 

boolean  Finder: : Popup  (Events,  boolean)  ( 

World*  world  «  underlying->GetWorld() ; 

Coord  X,  y; 

underlying->Align (Center,  0,  0,  x,  y) ; 
underlying->GetRelative (x,  y,  world); 

world->InsertTransient (this,  underlying,  x,  y.  Center); 
boolean  accepted  “  Accept ( ) ; 
world->Remove (this) ; 

SetTitle("")  ; 
return  accepted; 

) 

/* 

*  Chooser  creates  its  button  states  and  initializes  its  view. 

*/ 

Chooser: :Chooser  (Interactor*  u,  const  char*  prompt,  const  char*  label_l, 
const  char*  label_2,  const  char*  label_3)  :  (u,  prompt)  ( 
bs_l  -  new  ButtonState (false) ; 

bs_2  ■=  new  ButtonState  (false)  ; 

bs_3  =  new  ButtonState (false) ; 

cancel  =  new  ButtonState (false) ; 

button_l  '  new  PushButton (label_l,  bs_l,  true) ; 

button_2  =  new  PushButton (label_2,  bs_2,  true) ; 

button_3  =  new  PushButton (label_3,  bs_3,  true); 

cancelbutton  =  new  PushButton("  Cancel  ",  cancel,  true) ; 

Init  0  ; 

} 

/* 

*  Free  storage  allocated  for  the  button  states. 

*/ 

Chooser :: 'Chooser  ()  { 

Unref (bs_l) ; 

Unref (bs_2) ; 

Unref (bs_3) ; 

Unref (cancel) ; 

) 

/* 

*  Choos  pops  up  the  Chooser,  lets  the  user  choose  one  of  the  buttons. 


154 


*  removes  the  Chooser,  and  returns  the  choice. 

*/ 

char  Chooser: : Choose  {)  { 
bs_l->SetValue (false) ; 
bs_2->SetValue (false) ; 
bs_3->SetValue (false) ; 
cancel->SetValue (false) ; 

Popup ( ) ; 

int  first  -  false; 
int  second  -  false; 
int  third  -  false; 
int  cancelled  -  false; 

while  ((first  &&  (second  &&  (third  &&  (cancelled)  { 

Event  e; 

Read (e) ; 

if  (e. target  --  button_l  | |  e. target  -=  button_2  | | 

e. target  ==  button_3  | |  e. target  ==  cancelbutton)  ( 
e . target ->Handle (e) ; 

} 

bs_l->GetValue (first) ; 
bs_2->GetValue (second) ; 
bs_3->GetValue (third)  ; 
cancel->GetValue (cancelled) ; 

) 

Disappear  0 ; 

char  answer  «  '  c' ; 
answer  =  first  ?  'f'  :  answer; 
answer  =  second  ?  's'  :  answer; 
answer  =  third  ?  't'  :  answer; 
return  answer; 

) 


*  Init  composes  Chooser's  view  with  boxes,  glue,  and  frames. 
*/ 

void  Chooser :: Init  ()  { 

SetClassName ("Chooser") ; 

HBox*  buttons  -  new  HBox; 
buttons->Insert (new  HGlue) ; 
buttons->Insert (button_l) ; 
buttons->Insert (new  HGlue)  ; 
buttons->Insert (button_2) ; 
buttons->Insert (new  HGlue); 
button3->Insert (button_3) ; 
buttons->Insert (new  HGlue) ; 


155 


buttons->ln3ert (cancelbutton)  ; 
buttons->Insert (new  HGlue) ; 

VBox*  vbox  “  new  VBox; 
vbox->Align (Center)  ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (warning)  ; 
vbox->Insert (new  VGlue) ; 
vbox->Insert (message)  ; 
vbox->Insert (new  VGlue) ; 
vbox->In3ert (buttons) ; 
vbox->Insert (new  VGlue) ; 

Insert (new  Frame (vbox,  2) ) ; 

) 

/* 

*  Reconfig  pads  Chooser's  shape  to  ma)ce  the  view  loo)c  less  crowded. 
*/ 

void  Chooser :: Reconfig  ()  ( 

DialogBox: : Reconfig ()  ; 

Font*  font  =  output->GetFont () ; 
shape->width  +-  4  *  font->Width  (”mmrnm") ; 
shape->height  +-  4  *  font->Height () ; 
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//  file  drawing. h 

//  description:  Class  description  of  Drawing  class. 

II  $Header:  drawing. h,v  1.13  89/10/09  14:47:50  linton  Exp  S 
//  declares  class  Drawing. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  3  TextBuffers  to  store  different  PSDL  for  drawing. 

*  Add  declaration  of  DFD  specific  functions  to  store  the  internal 

*  DFD  representation  of  the  drawing. 

*  Add  OperatorSelList  to  store  DFD  objects  and  how  they  are  related. 

* 

*  Changes  made  by:  Mary  Ann  Ciommigns 

*  Last  change  made:  October  17,  1990 
*/ 

#ifndef  drawing_h 
♦define  drawing_h 

♦include  <InterViews/Std/stdio. h> 

♦include  <InterViews/def s . h> 

♦include  <InterViews/Graphic/classes . h> 

//  Declare  imported  types. 

class  BSplineSelection; 
class  CenterList; 
class  DrawingView; 
class  EdgeList; 
class  EllipseSelection; 
class  Graphic; 
class  GroupList; 
class  IBrush; 
class  IBrushList; 
class  IColor; 
class  IColorList; 
class  IFont; 
class  IFontList; 
class  IPattern; 
class  IPatternList; 

//  class  LineSelection; 
class  Page; 
class  PictSelection; 
class  Selection; 
class  SelectionList; 
class  State; 
class  Transformer; 
class  TextBuffer; 
class  booleanList; 
class  OperatorSelList; 
class  TextSelection; 
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//  A  Drawing  contains  the  user's  picture  and  provides  the  interface 
//  through  which  editing  operations  modify  it. 

class  Drawing  { 
public : 

Drawing (double  w,  double  h,  double  b) ; 

-Drawing ( ) ; 

boolean  GetLandscape ( ) ; 

Page*  GetPage () ; 

void  GetPictureTT (Transformers) ; 

SelectionList*  GetSelectionList () ; 

boolean  Writable (const  char*); 
boolean  Exists (const  char*); 
void  ClearPicture ( ) ; 

boolean  ReadPicture (const  char*.  State*); 
boolean  PrintPicture (const  char*,  State*); 
boolean  WritePicture (const  char*,  state*); 

SelecticnList*  ReadClipboard(State*) ; 
void  WriteClipboardO  ; 

void  GetBox (Coords,  CoordS,  Coords,  CoordS); 

IBrushList*  GetBrushO; 

C^aterList*  GetCenterO; 

GroupList*  (SetChildrenO  ; 

I .olorList*  GetFgColor 0 ; 
iCnlorList*  GetBgColor ( ) ; 

SelectionList*  GetDuplicates {)  ; 
b>>oleanList*  GetFillBgO; 

I*  ontList*  GetFontO; 
int  GetNumberOfGraphics  () ; 

GroupList*  GetParentO; 

II atternList*  GetPattern ( )  ; 

SelectionList*  GetPrevsO; 

L ’lectionList*  GetSelections 0  ; 

Selection*  PickSelectionIntersecting (Coord,  Coord); 

S(. lection*  Pic)cSelectionShapedBy (Coord,  Coord); 

S -lectionList*  Pic)cSelectioi.sWithin  (Coord,  Coord,  Coord,  Coord); 

void  Clear  () ; 
void  Extend (Selection* ) ; 
void  Extend (SelectionList* ) ; 
void  Grasp (Selection* ) ; 
void  Grasp (SelectionList* ) ; 
void  Select (Selection* ) ; 
void  Select (SelectionList* ) ; 
void  SelectAllO; 


158 


void  Move (float,  float,  DrawingView*) ; 

void  Scale (float,  float); 

void  Stretch (float.  Alignment); 

void  Rotate (float) ; 

void  Align (Alignment,  Alignment); 

void  AlignToGrid 0  ; 

void  SetBrush (IBrush*)  ; 
void  SetBrush (IBrushLiat* ) ; 
void  SetCenter (CenterList* )  ; 
void  SetFgColor (IColor*) ; 
void  SetFgColor (IColorList* ) ; 
void  SetBgColor (IColor*)  ; 
void  SetBgColor (IColorList*) ; 
void  SetFillBg (boolean) ; 
void  SetFillBg (booleanList*)  ; 
void  SetFont (IFont*)  ; 
void  SetFont (IFontLiat*) ; 
void  SetPattern (IPattern*) ; 
void  SetPattern (IPatternList* ) ; 

void  Append ( ) ; 

void  Group (GroupList* )  ; 

void  InsertAfterPrev (SelectionList*) ; 

void  P repend  0; 

void  Remove ( )  ; 

void  Replace (Selection*,  Selection*); 
void  SortO; 

void  Ungroup (GroupLiat*)  ; 

//  DFD  specific  functions 


// 

// 


EllipseSelection*  SetEndptsInOperator (Coords ,  Coords, 

Coords,  Coords); 

void  OperatorAppend (EllipseSelection*) ; 

void  DataFlowLineAppend(LineSelection*,  EllipseSelection*, 

EllipseSelection* ) 

void  DataFlowSplineAppend (BSplineSelection*,  EllipseSelection*, 

EllipseSelection*) ; 

void  LabelAppend(TextSelection*,  Selection*); 
void  LabelReadAppend (TextSelection*,  Selection*); 
void  AddTextToSelectionList () ; 
void  AddSelf LoopsToSelectionList ()  ; 

void  ReplaceAssociatedObjects (EllipseSelection* ,  DrawingView* ) ; 

void  WritePSDLForOperator (EllipseSelection* )  ; 

void  METAppend (TextSelection*,  EllipseSelection*); 

void  WritePSDLForDrawing ( ) ; 

void  UpdatePSDLSpec (const  char*); 

EdgeList*  WritePSDLGraph (FILE* ) ; 

EdgeList*  WriteEdges (FILE*)  ; 

EdgeList*  BuildEdgeList ( ) ; 
void  WriteVertices (FILE* )  ; 
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void  WriteDFDFiles (char*,  const  char*); 
void  WritePSDLForAllOperators (char*,  const  char*); 
void  WriteStreams  0  ; 
void  WriteConstraints 0  ; 

void  ReadPSDLForOperator (FILE*,  EllipseSelection* ) ; 

char*  ReadBaclcPSDL(FlLE*)  ; 

void  ReadPSDLForDrawing ( )  ; 

void  ReadSt reams  0 ; 

void  ReadConstraints ()  ; 

void  WriteDFDInfo (FILE*,  EdgeList*); 

void  ReadDFDFiles (char*,  const  char*); 

void  ReadDFDInfo(FILE*)  ; 

char*  OperatorLabells (EllipseSelection*) ; 
void  AddStreamO; 

void  LatencyAppend (TextSelection*,  BSplineSelection*) ; 
void  AddLabelToSt reams (char*,  TextSelection*); 

Selection*  FindOperator (TextSelection* ) ; 

Selection*  FindLabel (Selection*) ; 
void  RemoveStream (TextSelection*) ; 

void  RemoveAssociatedOb jects (SelectionList* ,  EllipseSelection*) ; 
void  RemoveSplines (SelectionList*) , 

protected: 

int  NumberOfGraphics (PictSelection*) ; 

//  DFD  specific  functions 

EllipseSelection*  EndptsInOperator (Coordt,  Coordi); 

void  FindOperatorIntersection (Coordi,  Coordi,  Coord,  Coord); 

//  void  ReplacelnputDFLines (Coord,  Coord,  DrawingView*) ; 

//  void  ReplaceOutputDFLines (Coord,  Coord,  DrawingView*); 
void  ReplaceInputDFSplines (Coord,  Coord,  DrawingView*); 
void  ReplaceOutputDFSplines (Coord,  Coord,  DrawingView*); 
void  ReplaceSelf Loops (Coord,  Coord,  DrawingView*); 
void  ReplaceLabel (Selection* ,  TextSelection*); 
void  ReplaceLatency (Selection*,  TextSelection*); 
void  WriteOperator (FILE*,  int) ; 
void  WriteOpLabel (FILE* ,  int,  int) ; 
void  WriteMET (FILE*,  int,  int); 
void  WriteSelf Loop (FILE* ,  int,  int); 
void  WriteSelf LoopLabel (FILE* ,  int,  int,  int) ; 
void  WriteFlow (FILE* ,  int,  int,  int,  boolean); 
void  WriteFlowLabel (FILE*,  int,  int,  int,  int) ; 
void  WriteFlowLatency (FILE*,  int,  int,  int,  int); 
void  ReadPSDLForAllOperators (char*,  const  char*); 
void  FillImpBuf fers (char* )  ; 

void  FindTxbIndices (TextBuf fer*,  char**,  int,  int&, 

char**,  int,  int&); 

char*  clipf ilename;  //  filename  under  which  to  store  clippings 

Page*  page;  //  draws  picture 

PictSelection*  picture;  //  stores  picture 
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SelectionList*  si;  //  lists  picked  Selections 

OperatorSelList*  ol;  //  list  of  operators  drawn 

TextBuffer*  spec_txb;  //  contains  PSDL  specification  of  drawing 

TextBuffer*  streams_txb;  //  contains  PSDL  streams 

TextBuffer*  constraint3_txb;  //  contains  PSDL  constraints  of  drawing 

); 

#endif 
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//  file  drawing. c 

//  description:  In^lementation  of  Drawing  class. 


//  $Header:  drawing. c,v  1.18  89/10/09  14:47:48  linton  Exp  $ 
//  inplements  class  Drawing. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor; 

*  Add  functions  to  manipulate  TextBuffers  to  store  specification  of 

*  drawing,  PSDL  streams  for  drawing,  and  PSDL  constraints  for  drawing. 

*  Add  overloaded  function  Grasp  to  grasp  an  entire  list  of  selections. 

*  Change  Move  to  move  operator's  related  objects  when  moving  operator. 

*  Add  internal  representation  of  DFD  by  adding  functions  to  manipulate 

*  the  operator  list. 

*  Add  ability  to  write  file  to  rebuild  operator  list  data  struction  if 

*  entering  editor  with  existing  drawing. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  17,  1990 
*/ 


iinclude 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"dfd_defs.h" 

"dfdclasses . h" 

"df dsplinelist . h" 

"drawingview . h" 

"drawing. h" 

"edge . h" 

"edgelist . h" 

"ipaint .h" 

"istring.h" 

"listboolean . h" 

"listcenter .h" 

"listchange . h" 

"listgroup.h" 

"listibrush.h" 

"listicolor . h" 

"listifont .h" 

"listipattern.h" 

"listselectn.h" 

"opsellist . h" 

"page. h" 

"sldf dspline . h" 

"slellipses.h" 

"sloperator . h" 

"slpict . h" 

"slsplines . h" 

"sltext . h" 

<InterViews/Graphic/polygons . h> 
<InterViews/def s . h> 

<InterViews /regexp. h> 
<InterViews/textbuf f er . h> 
<InterViews/transformer . h> 
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♦include 

♦include 

♦include 

♦include 

♦include 


<InterViews/Std/os/fs .h> 

<InterViews/Std/stdio .h> 

<stdlib.h> 

<sys/£ile.h>  /*  define  constants  for  access  call 

<math.h> 


*! 


II  Drawing  creates  the  page,  selection  list,  and  clipboard  filename. 

Drawing: : Drawing  (double  w,  double  h,  double  b)  { 

const  char*  home  -  (home  -  getenv ("HOME") )  ?  home  : 
const  char*  name  -  ".clipboard"; 

clipfilename  -  new  char [strlen (home)  +  1  +  strlen(name)  +  1]; 

strcpy (clipf ilename,  home) ; 

strcat (clipfilename,  "/"); 

street  (clipfilen^une,  name) ; 

page  -  new  Page(w,  h,  b) ; 

picture  “  page->GetPicture () ; 

si  “  new  SelectionList; 

ol  =  new  OperatorSelList; 

//  build  inital  PSDL  specification  to  put  in  text  buffer 

char*  apec_string  =  new  char [TXTBUFLEN] ; 

strcpy (spec_string, OPER_TKN)  ; 

strcat (spec_string, ID_TKN) ; 

strcat (spec_string, "\n") ; 

strcat (spec_string, SPEC_TKN) ; 

strcat (spec_string,DESC_TKN) ; 

strcat (3pec_string, TEXT_TKN) ; 

strcat (spec_string, END_TKN) ; 

spec_txb  =  new  TextBuffer (spec_string, strlen (spec_string) , 

TXTBUFLEN) ; 

streams_txb  =  nil; 
constraints_txb  =  nil; 

) 

//  -Drawing  frees  storage  allocated  for  the  clipboard  filename,  page, 
//  and  selection  list. 


Drawing: : -Drawing  ()  ( 
delete  clipfilename; 
delete  page; 
delete  si; 
delete  ol; 


//  Define  access  functions  to  return  attributes. 


boolean  Drawing: :GetLandscape  ()  { 

Transformer*  t  “  page->GetTransf ormer ( ) ; 
return  t  ?  t->Rotated90 ( )  :  false; 

) 
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Page*  Drawing: rGetPage  ()  { 
return  page; 

) 

void  Drawing: :GetPictureTT  (Transformeri  t)  ( 
picture->TotalTransfonnation (t) ; 

) 

SelectionList*  Drawing: :GetSelectionLi3t  ()  ( 
return  si; 

) 

//  Writable  returns  true  only  if  the  given  drawing  is  writable. 

boolean  Drawing: :Writable  (const  char*  path)  ( 
return  (access (path,  W_OK)  >-  0); 

} 

//  Exists  returns  true  only  if  the  drawing  already  exists. 

boolean  Drawing: : Exists  (const  char*  path)  { 
return  (access (path,  F_OK)  >-  0); 

) 

//  ClearPicture  deletes  the  old  picture  and  creates  a  new  empty 

//  picture. 

void  Drawing: :ClearPicture  0  { 
sl->DeleteAll () ; 
page->SetPicture (nil) ; 
picture  =  page->GetPicture () ; 

) 

//  ReadPicture  reads  a  new  picture  and  replaces  the  old  picture  with 

//  the  new  picture  if  the  read  succeeds. 

boolean  Drawing: : ReadPicture  (const  char*  path.  State*  state)  ( 
boolean  successful  =  false; 
if  (path  !“  nil)  ( 

FILE*  stream  =  f open (path,  "r"); 
if  (stream  !=  nil)  { 

PictSelection*  newpic  •  new  PictSelection (stream,  state); 
fclose (stream) ; 
if  (newpic->Valid ( ) )  { 
sl->DeleteAll () ; 
page->SetPicture (newpic) ; 
picture  -  page->GetPicture ( ) ; 
successful  =  true; 

)  else  { 
delete  newpic; 

fprintf (stderr,  "Drawing:  input  error  in  reading  %s\n",  path) ; 
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} 

) 

) 

return  successful; 


//  PrintPicture  prints  the  current  picture  by  writing  it  through  a 
//  pipe  to  a  print  command. 

boolean  Drawing: : PrintPicture  (const  char*  cmd.  State*  state)  ( 
boolean  successful  =  false; 
if  (cmd  !=  nil)  { 

FILE*  stream  =  popen(cmd,  "w"); 
if  (stream  !=  nil)  { 

successful  “  picture->WritePicture (stream,  state,  true) ; 
pclose (stream) ; 

) 

) 

return  successful; 


//  WritePicture  writes  the  current  picture  to  a  file. 

boolean  Drawing: :WritePicture  (const  char*  path.  State*  state)  ( 
boolean  successful  -  false; 
if  (path  !=  nil)  { 

FILE*  stream  =  fopen(path,  "w"); 
if  (stream  !-=  nil)  { 

successful  “  picture->WritePicture (stream,  state,  true); 
fclose (stream) ; 

} 

) 

return  successful; 


//  ReadClipboard  returns  copies  of  the  Selections  within  the  clipboard 
//  file  in  a  newly  allocated  list. 

SelectionList*  Drawing: : ReadClipboard  (State*  state)  ( 

SelectionList*  si  =  new  SelectionList; 

FILE*  stream  =  f open (clipf ilename,  "r") ; 
if  (stream  !=  nil)  { 

PictSelection*  newpic  =  new  PictSelection (stream,  state); 
fclose (stream) ; 
if  (newpic->Valid 0 )  { 
newpic->Propagate ()  ; 

for  (newpic->First 0 ;  ! newpic->AtEnd ( ) ;  newpic->RemoveCur ( ) )  ( 
Selection*  child  =  (Selection*)  newpic->GetCurrent ( ) ; 
sl->Append (new  SelectionNode (child) ) ; 

) 

) 

delete  newpic; 
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)  else  { 

fprintf (stderr,  "Drawing:  can't  open  %s\n",  clipfilename) ; 

) 

return  si; 

} 

//  WriteClipboard  writes  the  picked  Selections  to  the  clipboard  file, 
//  overwriting  its  previous  contents. 

void  Drawing: :WriteClipboard  <)  { 

FILE*  stream  -  fopen (clipfilename,  "w") ; 
if  (stream  !-  nil)  { 

PictSelection*  newpic  «  new  PictSelection; 
for  (sl->First();  ! sl->AtEnd ( ) ;  sl->Next () )  ( 

Graphic*  copy  «  sl->GetCur ( ) ->GetSelection ( ) ->Copy ( ) ; 
newpic->Append(copy)  ; 

} 

newpic->WritePicture (stream,  nil,  false); 
fclose (stream) ; 
delete  newpic; 

}  else  { 

fprintf (stderr,  "Drawing:  can't  open  %s\n",  clipfilename); 

} 


//  GetBox  gets  the  smallest  box  bounding  all  the  Selections. 

void  Drawing: : GetBox  (Coords  1,  Coords  b.  Coords  r.  Coords  t)  { 
BoxObj  btotal; 

BoxObj  bselection; 

if  (sl->Size()  >■=  1)  { 

sl->First () ->GetSelection () ->GetBox (btotal) ; 
for  (sl->Next();  ! sl->AtEnd ( ) ;  3l->Next())  ( 

sl->GetCur () ->GetSelection () ->GetBox (bselection) ; 
btotal  -  btotal  +  bselection; 

) 

1  =  btotal, left; 
b  =  btotal .bottom; 
r  «  btotal . right; 
t  “  btotal. top; 

) 


//  GetBrush  returns  the  Selections'  brush  attributes  in  a  newly 
//  allocated  list. 

IBrushList*  Drawing: : GetBrush  ()  ( 

IBrushList*  brushlist  =  new  IBrushList; 

for  (sl->First ( ) ;  ! sl->AtEnd () ;  sl->Next())  ( 

IBrush*  brush  «  (IBrush*)  sl->GetCur ( ) ->GetSelection ( ) ->GetBrush ( ) ; 
brushli3t->Append (new  IBrushNode (brush) )  ; 
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) 

return  brushlist; 

) 

//  GetCenter  returns  the  Selections'  centers  in  a  newly  allocated 
//  list.  It  converts  the  centers  from  window  coordinates  to  picture 
//  coordinates  because  only  these  coordinates  will  remain  constant. 

CenterList*  Drawing: : GetCenter  ()  { 

CenterList*  centerlist  ■=  new  CenterList; 

Transformer  t; 

picture->TotalTransformation (t) ; 
for  (sl->First ( ) ;  ! sl->AtEnd ( ) ;  sl->Next())  { 

float  wincx,  wincy,  cx,  cy; 

sl->GetCur ( ) ->GetSelection ( ) ->GetCenter {wincx,  wincy) ; 
t . InvTransform(wincx,  wincy,  cx,  cy) ; 
centerlist->Append (new  CenterNode (cx,  cy) ) ; 

} 

return  centerlist; 


//  GetChildren  returns  the  Selections  and  their  children,  if  any,  in  a 
//  newly  allocated  list. 

GroupList*  Drawing: : GetChildren  ()  { 

GroupList*  grouplist  *  new  GroupList; 

for  (sl->First ( ) ;  ! sl->AtEnd () ;  sl->Next())  { 

PictSelection*  parent  =  (PictSelection*)  sl->GetCur ( ) ->GetSelection ( ) 
boolean  haschildren  =  parent->HasChildren () ; 

SelectionList*  children  =  new  SelectionList; 
if  (haschildren)  { 

for  (parent->First  ( ) ;  ! parent->AtEnd { ) ;  parent->Next ( ) )  { 

Selection*  child  =  parent ->GetCurrent 0 ; 
children->Append (new  SelectionNode (child) ) ; 

) 

1 

grouplist->Append (new  GroupNode (parent,  haschildren,  children)); 
delete  children; 

) 

return  grouplist; 

) 

//  GetFgColor  returns  the  Selections'  FgColor  attributes  in  a  newly 
//  allocated  list. 

IColorList*  Drawing: : GetFgColor  ()  { 

IColorList*  fgcolorlist  =  new  IColorList; 
for  (sl->First 0 ;  ! sl->AtEnd ( ) ;  sl->Next())  ( 

IColor*  fgcolor  =  (IColor*)  sl->GetCur ( ) ->GetSelection ( ) ->GetFgColor ( ) 
fgcolorlist->Append (new  IColorNode (fgcolor) ) ; 

) 
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return  fgcolorlist; 

) 

//  GetBgColor  returns  the  Selections'  BgColor  attributes  in  a  newly 
//  allocated  list. 

IColorList*  Drawing: : GetBgColor  ()  { 

IColorList*  bgcolorlist  -  new  IColorList; 
for  (sl->Fir3t 0 ;  ! sl->AtEnd() ;  sl->Next())  { 

IColor*  bgcolor  -  (IColor*)  sl->GetCur () ->GetSelection ( ) -> 

GetBgColor ( ) ; 

bgcolorlist->Append (new  IColorNode (bgcolor) ) ; 

} 

return  bgcolorlist; 

) 

//  GetDuplicates  duplicates  the  Selections,  offsets  them  by  one  grid 
//  spacing,  and  returns  them  in  a  newly  allocated  list. 

SelectionList*  Drawing: :GetDuplicates  ()  ( 

int  offset  =  round (page->GetGridSpacing ()  *  points); 
SelectionList*  duplicates  -  new  SelectionList; 
for  (sl->First () ;  ! sl->AtEnd() ;  sl->Next())  ( 

Selection*  dup  «  (Selection*)  sl->GetCur {) ->GetSelection ( ) ->Copy ( ) 
dup->Translate (of f set,  offset); 
duplicates->Append (new  SelectionNode (dup) ) ; 

) 

return  duplicates; 

) 

//  GetFillBg  returns  the  Selections'  fillbg  attributes  in  a  newly 
//  allocated  list. 

booleanList*  Drawing: : GetFillBg  ()  ( 

booleanList*  fillbglist  =  new  booleanList; 
for  (sl->First () ;  ! sl->AtEnd () ;  sl->Next())  { 
boolean  fillbg  =  sl->GetCur ( ) ->GetSelection ( ) ->BgFilled ( )  ; 
f illbglist->Append (new  booleanNode (fillbg) ) ; 

) 

return  fillbglist; 

) 

//  Getr  -1  c  returns  the  Selections'  Font  attributes  in  a  newly 
II  allocated  list. 

IFontList*  Drawing: :GetFont  ()  ( 

IFontList*  fontlist  =  new  IFontList; 

for  (sl->First ( ) ;  ! sl->AtEnd ( ) ;  sl->Next())  { 

IFont*  font  »  (IFont*)  sl->GetCur()->GetSelection()->GetFont(); 
f ont list ->Append (new  IFontNode (font) ) ; 

) 

return  fontlist; 
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} 


//  GetNumberOfGraphics  returns  the  number  of  graphics  in  the 
//  Selections. 

int  Drawing: : GetNumberOfGraphics  ()  { 
int  num  =  0; 

for  (sl->First 0 ;  ! sl->AtEnd() ;  sl->Next())  { 

Selection*  s  -  sl->GetCur () ->GetSelection ( ) ; 
if  (s->HasChildren ( ) )  { 

num  +“  NumberOf Graphics ( (PictSelection*)  s)  ; 

)  else  { 

++num; 

) 

} 

return  num; 

) 

//  GetParent  returns  the  Selections  and  their  new  parent  in  a  newly 
//  allocated  list  if  there  are  enough  Selections  to  form  a  Group. 

GroupList*  Drawing: :GetParent  ()  { 

GroupList*  grouplist  -  new  GroupList; 
if  (sl->Size()  >-  2)  { 

PictSelection*  parent  *  new  PictSelection; 
boolean  haschildren  -  true; 

grouplist->Append (new  GroupNode (parent,  haschildren,  si)); 

} 

return  grouplist; 

) 

//  GetPattern  returns  the  Selections'  Pattern  attributes  in  a  newly 
//  allocated  list. 

IPatternList*  Drawing: :GetPattern  ()  { 

IPatternList*  patternlist  •  new  IPatternList; 
for  (sl->First ( ) ;  ! sl->AtEnd ( ) ;  3l->Next())  { 

IPattern*  pattern  « 

(IPattern* )  sl->GetCur ( ) ->G€tSelection ( ) ->GetPattern ( ) ; 
patternlist->Append (new  IPatternNode (pattern) ) ; 

) 

return  patternlist; 

) 

//  GetPrevs  returns  the  Selections'  predecessors  within  the  picture  in 
//a  newly  allocated  list. 

SelectionList*  Drawing: : GetPrevs  ()  { 

SelectionList*  prevlist  «  new  SelectionList; 
for  (3l->First () ;  ! sl->AtEnd () ;  sl->Next())  { 
picture->SetCurrent (sl->GetCur () ->GetSelection () ) ; 

Selection*  prev  -  picture->Prev ( ) ; 
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prevlist->Append (new  SelectionNode (prev) ) ; 

) 

return  prevlist; 

} 

//  GetSelections  returns  the  Selections  in  a  newly  allocated  list, 

SelectionList*  Drawing:  .‘GetSelections  ()  ( 

SelectionList*  newsl  «  new  SelectionList; 
for  (sl->First 0 ;  ! sl->AtEnd ( ) ;  sl->Next{))  { 

Selection*  s  -  sl->GetCur () ->GetSelection () ; 
newsl->Append (new  SelectionNode (s) ) ; 

) 

return  newsl; 

) 

//  PickSelectionIntersecting  returns  the  last  Selection  intersecting  a 
//  box  around  the  given  point. 

Selection*  Drawing: : PickSelectionIntersecting  (Coord  x.  Coord  y)  { 
const  int  SLOP  “  2; 

BoxObj  pickpoint (x  -  SLOP,  y  -  SLOP,  x  +  SLOP,  y  +  SLOP); 
return  picture->LastSelectionIntersecting (pickpoint ) ; 

} 

//  PickSelectionShapedBy  returns  the  last  Selection  shaped  by  a  point 
//  close  to  the  given  point. 

Selection*  Drawing: : PickSelectionShapedBy  (Coord  x,  Coord  y)  { 
const  float  SLOP  -  6.; 

for  (picture->Last () ;  ! picture->AtEnd ( ) ;  picture->Prev  () )  { 
Selection*  pick  «  picture->GetCurrent ( ) ; 
if  (pick->ShapedBy (x,  y,  SLOP))  ( 
return  pick; 

) 

) 

return  nil; 

) 

//  PickSelectionsWithin  returns  all  the  Selections  within  the  given 
//  box. 

SelectionList*  Drawing: : PickSelectionsWithin  (Coord  1,  Coord  b,  Coord  r 
Coord  t)  { 

Selection**  picks  *  nil; 

int  numpicks  «  picture->SelectionsWithin (BoxObj (1,  b,  r,  t),  picks) 
SelectionList*  picklist  «  new  SelectionList; 
for  (int  i  -  0;  i  <  numpicks;  i++)  ( 
if  ( !picklist->Find(picks [ij ) )  { 

picklist->Append (new  SelectionNode (picks [i] ) ) ; 

) 

} 
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delete  picks; 
return  picklist; 

) 

//  Clear  enpties  the  SelectionList . 

void  Drawing: : Clear  ()  { 
sl->DeleteAll ()  ; 

} 

//  Extend  extends  the  SelectionList  to  include  the  picked  Selection 

//  unless  it's  already  there,  in  which  case  it  removes  the  Selection. 

void  Drawing: : Extend  (Selection*  pick)  ( 
if  ( ! sl->Find (pick) )  { 

sl->Append (new  SelectionNode (pick) ) ; 

) 

else  { 

sl->DeleteCur  ( ) ; 

} 

} 

//  Extend  extends  the  SelectionList  to  include  the  picked  Selections 

//  unless  they're  already  there,  in  which  case  it  removes  them. 

void  Drawing: : Extend  (SelectionList*  picklist)  ( 

for  (picklist->Firat ( ) ;  !picklist->AtEnd() ;  picklist->Next ( ) )  { 
Selection*  pick  «  picklist->GetCur  () ->(3etSelection  ()  ; 

Extend (pick) ; 

} 

) 

//  Grasp  selects  the  picked  Selection  only  if  the  SelectionList  does 

//  not  already  include  it. 

void  Drawing: :Grasp  (Selection*  pick)  { 
if  ( ! sl->Find (pick) )  ( 

Select (pick) ; 

) 


//  Grasp  selects  the  list  of  picked  Selections  only  if  the  SelectionList 
//  does  not  already  include  any  of  the  selections. 

void  Drawing: :Grasp  (SelectionList*  picklist)  | 
boolean  found  =  false; 

for  (picklist->First  ( ) ;  !pickli3t->AtEnd ( ) ;  picklist->Next ( ) )  ( 
if  (sl->Find (picklist->GetCur () ->GetSelection () ) )  ( 

found  »  true; 
exit  ; 

) 

} 
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if  {! found)  { 

Select (picklist) ; 

) 

) 

//  Select  selects  the  picked  Selection. 

void  Drawing; : Select  (Selection*  pick)  ( 
sl->DeleteAll () ; 

sl->Append(new  SelectionNode (pick) ) ; 

) 

II  Select  selects  the  picked  Selections. 

void  Drawing: : Select  (SelectionList*  picklist)  { 
sl->DeleteAll () ; 

for  (picklist ->First 0 ;  !picklist->AtEnd 0 ;  picklist->Next () )  { 
Selection*  pick  -  pickli3t->GetCur()->GetSelection(); 
sl->Append(new  SelectionNode (pick) ) ; 

} 

) 

//  SelectAll  selects  all  of  the  Selections  in  the  picture. 

void  Drawing; : SelectAll  ()  ( 
sl->DeleteAll () ; 

for  (picture->First 0 ;  !picture->AtEnd() ;  picture->Next ( ) )  ( 
Selection*  pick  -  picture->GetCurrent () ; 
sl->Append (new  SelectionNode (pick) ) ; 

) 

) 

//  Move  translates  the  Selections. 

void  Drawing; :Move  (float  xdisp,  float  ydisp,  DrawingView*  dv)  ( 

//  add  labels,  mets,  and  selfloops  and  their  labels  to  the  list  of 
//  selections 

//  to  be  moved  if  the  operator  they  are  attached  to  is  to  be  moved. 

//  These  objects  can  be  translated  along  with  the  operator  -  data  flows 
//  cannot  be  translated,  they  must  be  modified 

AddTextToSelectionList () ; 

AddSelf LoopsToSelectionList () ; 

Classid  cid; 

int  sl_size  -  sl->Si2e(); 

for  (int  index  -  0;  index  <  sl_size;  ++index)  { 

Selection*  s  ■  sl->Index (index) ->GetSelection () ; 
cid  -  s->GetClassId 0 ; 

if  (cid  *-  OPERATOR  | |  cid  ==  COMMENT  I | 
cid  —  LABEL_OP  I  I  cid  ~  MET_OP  I  I 

cid  -«  LABEL  SL  | |  cid  —  SELFLOOP  | |  (si  size  “  1  && 
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(cid  --  LABEL_DF  1  I  cid  --  1AT_DF) ) )  { 
s->Translate (xdisp,  ydisp) ; 
if  (cid  —  OPERATOR)  ( 

SelectionList*  temp  -  GetSelectionsO; 
ReplaceAssociatedOb jects ( (EllipseSelection* )  s,  dv) ; 
Select (ten^) ; 

} 

) 

) 

/ /  only  redraw  the  screen  once  to  make  the  transition  look  smooth 
dv->Draw ( ) ; 

} 

//  Scale  scales  the  Selections  about  their  centers. 

void  Drawing: : Scale  (float  xscale,  float  yscale)  { 
for  (al->First 0 ;  ! sl->AtEnd() ;  sl->Next())  ( 

Selection*  s  =  sl->GetCur ( ) ->GetSelection ( ) ; 

float  cx,  cy; 

s->GetCenter (cx,  cy) ; 

s->Scale (xscale,  yscale,  cx,  cy) ; 

} 

) 

//  Stretch  stretches  the  Selections  while  keeping  the  given  side 
//  fixed. 

void  Drawing: : Stretch  'float  stretch.  Alignment  side)  { 
for  (sl->Fir3t 0 ;  ! sl->AtEnd () ;  sl->Next())  ( 

Selection*  s  *  sl->GetCur ( ) ->GetSelection ( ) ; 
float  1,  b,  r,  t; 

3->GetBounds (1,  b,  r,  t); 
switch  (side)  { 
case  Left: 

s->Scale (stretch,  1,  r,  t); 
break; 

case  Bottom: 

s->Scale(l,  stretch,  r,  t); 
break; 
case  Right : 

s->Scale (stretch,  1,  1,  b) ; 
break; 
case  Top: 

s->Scale(l,  stretch,  1,  b)  ; 
break ; 
default : 

fprintf (stderr, "inappropriate  enum  passed  to  Drawing: : Stretch\n") 
break; 

) 

) 
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) 


//  Rotate  rotates  the  Selections  about  their  centers. 

void  Drawing: iRotate  (float  angle)  ( 

for  (sl->First () ;  ! al->AtEnd ( ) ;  sl->Next())  { 

Selection*  s  -  sl->GetCur () ->GetSelection ( )  ; 
float  cx,  cy; 
s->(3etCenter  (cx,  cy) ; 
s->Rotate (angle,  cx,  cy) ; 

1 

) 

/ /  Align  either  aligns  up  ail  of  the  Selections  or  abuts  all  of  them 
//  side  to  side,  depending  on  whether  the  moving  Selection's  side  or 
//  center  aligns  with  the  fixed  Selection's  same  side  or  center. 

void  Drawing: : Align  (Alignment  f align.  Alignment  malign)  ( 
if  (falign  —  malign)  { 

Selection*  stays  -  sl->First () ->GetSelection () ; 
for  (3l->Next();  !sl->AtEnd() ;  sl->Next())  ( 

Selection*  moves  "  sl->GetCur () ->GetSelection ( ) ; 
stay3->Align (falign,  moves,  malign); 

) 

)  else  { 

Selection*  stays  •  sl->First 0 ->GetSelection ()  ; 
for  (sl->Next();  ! sl->AtEnd () ;  sl->Next())  ( 

Selection*  moves  »  sl->GetCur () ->GetSelection ( ) ; 

3tays->Align (falign,  moves,  malign); 
stays  »=  moves; 

} 

) 


/ /  AlignToGrid  aligns  the  Selections'  lower  left  corners  to  the 
//  nearest  grid  point. 

void  Drawing: : AlignToGrid  ()  { 

boolean  gravity  -  page->GetGridGravity () ; 
page->SetGridGravity (true) ; 

Transformer  t; 

picture->TotalTransf ormation (t)  ; 

for  (sl->Fir3t ( ) ;  ! sl->AtEnd() ;  sl->Next())  ( 

Selection*  s  -  3l->GetCur ( ) ->GetSelection ( ) ; 

float  1,  b,  dummy; 

s->GetBounds (1,  b,  dummy,  dummy); 

Coord  nl  -  round(l); 

Coord  nb  ■=  round  (b); 
page->Constrain (nl,  nb) ; 
float  xO,  yO,  xl,  yl; 
t .  InvTransformd,  b,  xO,  yO)  ; 
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t . InvTransfonn( float (nl) ,  float (nb) ,  xl,  yl); 
s->Translate (xl  -  xO,  yl  -  yO); 

) 

page->SetGriciGravity  (gravity) ; 

) 

//  SetBrush  sets  the  Selections'  brush  attributes  with  the  given  brush 
//  attribute. 

void  Drawing: : SetBrush  (IBrush*  brush)  ( 

for  (sl->First 0 ;  !sl->AtEnd() ;  sl->Next())  { 
sl->GetCur ( ) ->GetSelection ( ) ->SetBrush (brush) ; 

} 


//  SetBrush  sets  each  Selection's  brush  attribute  with  the 
//  corresponding  brush  attribute  in  the  provided  list. 

void  Drawing: : SetBrush  (IBrushList*  brushlist)  { 
for  (sl->First () ,  brushlist->First () ; 

!sl->AtEnd()  &&  !brushlist->AtEnd() ; 
sl->Next(),  brushlist->Next ( ) ) 

( 

IBrush*  brush  -  bru3hlist->GetCur () ->GetBrush () ; 

3l->GetCur ( ) ->GetSelection ( ) ->SetBrush (brush) ; 

} 

) 

//  SetCenter  centers  each  of  the  Selections  over  the  corresponding 
//  position  in  the  provided  list.  It  expects  the  passed  postions  to 
//  in  picture  coordinates,  not  window  coordinates. 

void  Drawing: : SetCenter  (CenterList*  centerlist)  ( 

Transformer  t; 

picture->TotalTransf ormation (t) ; 
for  (sl->First ( ) ,  centerlist->First () ; 

!sl->AtEnd()  &&  ! centerlist->AtEnd() ; 
sl->Next(),  centerlist->Next () ) 

( 

float  winoldcx,  winoldcy,  oldcx,  oldcy; 
float  newcx  =  centerlist->GetCur ( ) ->GetCx ( )  ; 
float  newcy  =  centerlist->GetCur () ->GetCy 0 ; 

Selection*  s  =  sl->GetCur ( ) ->GetSelection ( ) ; 

s->GetCenter (winoldcx,  winoldcy) ; 
t . InvTransform(winoldcx,  winoldcy,  oldcx,  oldcy); 
s->Translate (newcx  -  oldcx,  newcy  -  oldcy); 

) 


//  SetFgColor  sets  the  Selections'  foreground  color  attributes  with 
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//  the  given  color  attribute. 

void  Drawing: : SetFgColor  (IColor*  fgcolor)  { 

for  (3l->First 0 ;  ! sl->AtEnd() ;  3l->Next())  { 

Selection*  s  -  3l->GetCur () ->GetSelection () ; 

IColor*  bgcolor  -  (IColor*)  3->GetBgColor () ; 

3->SetColor3 (fgcolor,  bgcolor); 

) 

) 

//  SetFgColor  3et3  the  Selection3'  foreground  color  attribute3  with 
//  the  corre3ponding  color  attributes  in  the  provided  list. 

void  Drawing: : SetFgColor  (IColorList*  fgcolorlist)  { 
for  (sl->Fir3t 0 ,  fgcolorli3t->First () ; 

!3l->AtEnd()  &&  ! fgcolorlist->AtEnd() ; 
sl->Next () ,  fgcolorlist->Next () ) 

{ 

Selection*  s  -  3l->GetCur () ->GetSelection () ; 

IColor*  fgcolor  -  fgcolorlist->GetCur () ->GetColor ( ) ; 

IColor*  bgcolor  -  (IColor*)  s->GetBgColor () ; 

s->SetColor3 (fgcolor,  bgcolor); 

) 

) 

II  SetBgColor  sets  the  Selections'  bac)cground  color  attributes  with 
//  the  given  color  attribute. 

void  Drawing: : SetBgColor  (IColor*  bgcolor)  { 

for  (3l->Fir3t 0 ;  ! sl->AtEnd() ;  3l->Next())  ( 

Selection*  s  «  3l->GetCur ( ) ->GetSelection ( ) ; 

IColor*  fgcolor  «  (IColor*)  3->GetFgColor ( ) ; 

3->SetColors (fgcolor,  bgcolor); 

) 

) 

//  SetBgColor  sets  the  Selections'  bac)cground  color  attributes  with 
//  the  corresponding  color  attributes  in  the  provided  list. 

void  Drawing: : SetBgColor  (IColorList*  bgcolorlist)  I 
for  (sl->First  ( ) ,  bgcolorlist->First () ; 

!sl->AtEnd()  &&  !bgcolorli3t->AtEnd() ; 
sl->Next ( ) ,  bgcolorli3t->Next ( ) ) 

( 

Selection*  s  •  sl->GetCur ( ) ->GetSelection ( )  ; 

IColor*  fgcolor  «  (IColor*)  s->GetFgColor ( ) ; 

IColor*  bgcolor  -  bgcolorli3t->GetCur () ->GetColor ( ) ; 

s->SetColors (fgcolor,  bgcolor); 

) 


//  SetFillBg  sets  the  Selections'  fillbg  attributes  with  the  given 
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II  fillbg  attribute. 


void  Drawing: rSetFillBg  (boolean  fillbg)  ( 

for  (sl->First 0 ;  ! 3l->AtEnd ( ) ;  sl->Next())  ( 
sl->GetCur () ->GetSelection () ->FillBg (fillbg) ; 

) 


//  SetFillBg  sets  each  Selection's  fillbg  attribute  with  the 
//  corresponding  fillbg  attribute  in  the  provided  list. 

void  Drawing: : SetFillBg  (booleanList*  fillbglist)  { 
for  (sl->First 0 ,  fillbglist->First () ; 

!sl->AtEnd()  &&  !fillbglist->AtEnd() ; 
sl->Next  ( ) ,  f illbglist->Next ( ) ) 

( 

boolean  fillbg  »  fillbglist->GetCur () ->GetBoolean () ; 
sl->GetCur ( ) ->GetSelection () ->FillBg (fillbg)  ; 

} 


//  SetFont  sets  the  Selections'  font  attributes  with  the  given  font 
//  attribute. 

void  Drawing: : SetFont  (IFont*  font)  { 

for  (sl->First 0 ;  ! sl->AtEnd() ;  sl->Next())  { 

Selection*  s  “  sl->GetCur () ->GetSelection ()  ; 
s->SetFont (font) ; 

) 

) 

//  SetFont  sets  each  Selection's  font  attribute  with  the  corresponding 
//  font  attribute  in  the  provided  list. 

void  Drawing: : SetFont  (IFontList*  fontlist)  ( 

for  (sl->First  ( ) ,  f ontlist->First ( ) ;  !sl->AtEnd()  && 

! fontlist->AtEnd ( ) ; 

sl->Next ( ) ,  f ontlist->Next ( ) ) 

( 

IFont*  font  =  fontlist->GetCur () ->GetFont () ; 

Selection*  s  =  sl->GetCur ( ) ->GetSelection ( )  ; 
s->SetFont (font) ; 

) 


//  SetPattern  sets  the  Selections'  pattern  attributes  with  the  given 
//  pattern  attribute. 

void  Drawing: : SetPattern  (IPattern*  pattern)  { 

for  (sl->First  ( ) ;  ! sl->AtEnd ( ) ;  sl->Next())  { 

sl->GetCur ( ) ->GetSelection ( ) ->SetPattern (pattern) ; 

) 
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) 


//  SetPattern  sets  each  Selection's  pattern  attribute  with  the 
//  corresponding  pattern  attribute  in  the  provided  list. 

void  Drawing: : SetPattern  (IPatternList*  patternlist)  { 
for  (sl->First  () ,  patternlist->First {) ; 

!sl->AtEnd()  &&  !patternlist->AtEnd() ; 
sl->Next(),  patternlist->Next  () ) 

IPattern*  pattern  -  patternlist->GetCur () ->GetPattern ( ) ; 
sl->GetCur ( ) ->GetSelection ( ) ->SetPattern (pattern) ; 

} 

} 

//  Append  appends  the  Selections  to  the  picture. 

void  Drawing: : Append  ()  { 

for  (sl->First 0 ;  ! sl->AtEnd ( ) ;  sl->Next())  ( 

Selection*  s  -  sl->GetCur () ->GetSelection () ; 
picture->Append (s) ; 

) 

} 

//  Group  groups  each  parent's  children,  if  any,  under  their  parent  and 
//  returns  the  resulting  Selections  in  the  SelectionList . 

void  Drawing: :Group  (GroupList*  grouplist)  { 
if  (grouplist->Si2e 0  >»  1)  { 
sl->DeleteAll () ; 

for  (grouplist->First 0 ;  ! grouplist->AtEnd 0 ;  grouplist->Next () )  i 
GroupNode*  gn  -  groupli3t->GetCur () ; 

PictSelection*  parent  =  gn->GetParent 0 ; 
boolean  haschildren  *  gn->GetHasChildren () ; 

SelectionList*  children  -  gn->GetChildren ( ) ; 

SelectionList*  childrengs  =  gn~>GetChildrenGS () ; 
if  (haschildren)  { 

for  (children->First () ,  childrengs->First () ; 

! children->AtEnd ( )  &&  ! childreng3->AtEnd ( ) ; 
children->Next () ,  childrengs->Next () ) 

( 

Graphic*  child  «=  children->GetCur ( ) ->GetSelection ( )  ; 

Graphic*  childgs  »  childrengs->GetCur () ->GetSelecti on () ; 

*child  “  *childgs; 
picture->SetCurrent (child) ; 
picture->Remove (child) ; 
parent->Append (child) ; 

) 

picture->InsertBef oreCur (parent) ; 

} 

sl->Append (new  SelectionNode (parent ) ) ; 

) 
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Sort  0  ; 

) 

) 

//  insertAfterPrev  inserts  each  Selection  after  its  corresponding 
//  predecessor  in  the  provided  list. 

void  Drawing: : InsertAfterPrev  (SelectionList*  prevlist)  { 
for  (sl->First 0 ,  prevlist->First ( ) ;  !sl->AtEnd()  &S 

!prevlist->AtEnd() ; 

sl->Next ( ) ,  prevlist->Next ( ) ) 

{ 

Selection*  prev  =  prevlist->GetCur {) ->GetSelection () ; 
picture->SetCurrent (prev) ; 

Selection*  s  =  sl->GetCur() ->GetSelection() ; 
picture->lnsertAfterCur (s) ; 

) 

) 

//  Prepend  prepends  the  Selections  to  the  picture. 

void  Drawing: : Prepend  ()  { 

for  (sl->Last();  !sl->AtEnd() ;  sl->Prev())  { 

Selection*  s  «  sl->GetCur ( ) ->GetSelection () ; 
picture->Prepend (s) ; 

1 

) 

//  Remove  removes  the  Selections  from  the  picture. 

void  Drawing: : Remove  ()  { 

SelectionList*  sl_2  «  GetSelections () ; 

for  (sl->First ( ) ;  ! sl->AtEnd() ;  sl->Next () )  ( 

Selection*  s  =  sl->GetCur () ->GetSelection () ; 
TextSelection*  tsl  =  nil; 

TextSelection*  ts2  =  nil; 

Classid  cid  ==  s  ->GetClassId()  ; 
switch  (cid)  { 
case  OPERATOR: 

tsl  =  ol->GetOperatorLabel ( (EllipseSelection* )  s); 
ts2  =  ol->GetOperatorMET( (EllipseSelection*)  s) ; 
RemoveAssociatedOb jects (sl_2,  (EllipseSelection*)  s) ; 
brea)t; 

case  DATAFLOW_SPLINE: 

tsl  =  ol->GetDFLabel ( (BSplineSelection* )  s)  ; 
ts2  =  ol->GetDFLatency ( (BSplineSelection* )  s)  ; 
if  ({(BSplineSelection*)  s)  ->IsAStream{) )  { 

RemoveStream(tsl ) ; 

) 

break; 

case  SELFLOOP: 

tsl  “  ol->GetSelfLoopLabel ( (BSplineSelection* )  s)  ; 
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break; 

case  LABEL_DF: 

BSplineSelection*  flow  *  ol->GetFlow ( (TextSelection*)  s) ; 
if  (flow  !-  nil  &£  flow->IsAStreeiin() )  { 
int  len; 

const  char*  tn^  »  ( (TextSelection*) s) ->GetOriginal (len) 
char*  old_atring  -  new  charIlen+1]; 
strncpy  (old_string,  tnip,  len)  ; 
old_atring[len]  *  '\0'; 

TextSelection*  tmp_ts  -  nil; 

AddLabelToStreams (old_string, (TextSelection*)  tmp_ts) ; 

1 

break; 
default : 
break; 

1 

ol->Remove (a) ; 

if  (tsl  !•»  nil  &&  !  sl_2->Find(tsl) )  ( 
picture->Remove (tsl) ; 

} 

if  (ts2  !-  nil  &&  ! sl_2->Find(ts2) )  ( 
picture->Remove (ts2)  ; 

) 

picture->Remove (s) ; 

) 

) 

/ /  Replace  replaces  a  Selection  in  the  picture  with  a  Selection  not  in  it 

void  Drawing: ; Replace  (Selection*  replacee.  Selection*  replacer)  ( 

/ /  replace  objects  in  operator  list  too 

if  (replacee->GetClassId()  —  LABEL_DF)  ( 

BSplineSelection*  flow  •=  ol->GetFlow ( (TextSelection*)  replacee) 
if  (flow  !-  nil  &&  flow->IsAStreain() )  { 
int  len; 

const  char*  tnvp  =  ( (TextSelection*) replacee) ->GetOriginal (len) 
char*  old_string  »  new  char[len+l]; 
strncpy (old_string, tmp, len) ; 
old_string[len]  «=  '\0'; 

AddLabelToStreams (old_string,  (TextSelection*)  replacer); 

) 

} 

if  (replacee->GetClassId()  DATAFLOW_SPLINE  && 
((BSplineSelection*)  replacee) ->l3AStream() )  ( 

( (BSplineSelection*) replacer) ->SetStream()  ; 

) 

ol->Replace (replacee,  replacer) ; 
picture->SetCurrent (replacee) ; 
pict’jre->Remove  (replacee)  ; 
picture->InsertBeforeCur (replacer) ; 
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) 

//  Sort  sorts  the  Selections  so  they  occur  in  the  same  order  as  they 
//  do  in  the  picture. 

void  Drawing: : Sort  ()  { 

if  (sl->Si2e{)  >-  2)  { 

for  (picture->First {) ;  !picture->AtEnd() ;  picture->Next ( ) )  ( 
Selection*  g  «  picture->GetCurrent () ; 
if  (sl->Find(g) )  { 

SelectionNode*  s  -  sl->GetCur () ; 
sl->RemoveCur ( ) ; 
sl->Append(s) ; 

} 

) 

1 

) 

//  Ungroup  replaces  all  Selections  which  contain  children  with  their 
//  children  and  returns  the  resulting  Selections  in  the  SelectionList . 

void  Drawing: : Ungroup  (GroupList*  grouplist)  { 
if  (grouplist->Size ( )  >=  1)  { 
sl->DeleteAll () ; 

for  (grouplist->First () ;  !groupliat->AtEnd() ;  grouplist->Next () )  { 
GroupNode*  gn  =  grouplist->GetCur () ; 

PictSelection*  parent  •=  gn->GetParent  ()  ; 
boolean  haschildren  -  gn->GetHasChildren <) ; 

SelectionList*  children  “  gn->GetChildren () ; 
if  (haschildren)  ( 
parent->Propagate () ; 
picture->SetCurrent (parent) ; 

for  (children->First 0 ;  ! children->AtEnd ( ) ;  children->Next () )  ( 
Selection*  child  =  children->GetCur () ->GetSelection ( ) ; 
parent->Remove (child)  ; 
picture->InsertBef oreCur (child) ; 
sl->Append(new  SelectionNode (child) ) ; 

) 

picture->Remove (parent) ; 

)  else  ( 

sl->Append (new  SelectionNode (parent) ) ; 

} 

) 

Sort  0  ; 

} 

) 

//  NumberOfGraphics  returns  the  number  of  graphics  in  the  picture, 

//  calling  itself  recursively  to  count  the  number  of  graphics  in 
//  subpictures. 

int  Drawing: : NumberOfGraphics  (PictSelection*  picture)  { 
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int  num  -  0; 

for  {picture->Fir3t () ;  !picture->AtEnd() ;  picture->Next ( ) )  { 
Selection*  s  ■  picture->GetCurrent ( ) ; 
if  (a->HasChildren 0 )  { 

num  +■  NumberOf Graphics ( (PictSelection*)  s) ; 

)  else  { 

++num; 

) 

} 

return  num; 

} 


//  DFD  specific  functions 

//  return  ellipse  that  contains  the  given  points 

EllipseSelection*  Drawing: :EndptsInOperator (Coords  x.  Coords  y)  ( 
ol->SetCurContaining (x,y) ; 
if  (!ol->AtEnd() )  { 
float  fx,  fy; 

ol->GetCur ( ) ->GetSelection () ->GetEllipseSelection ( ) 

-XSetCenter  (fx,  fy)  ; 

X  -  (Coord)  fx; 
y  “  (Coord)  fy; 

return  ol->GetCur  () ->C3etSelection  () ->GetEllipseSelection  ()  ; 

) 

else  ( 

return  nil; 

) 

) 


//  Find  point  where  data  flow  intersects  with  operator  in  order  to 
//  draw  data  flow's  endpoints  at  intersection  point  with  operator 


void  Drawing: : FindOperatorIntersection (Coords  x, 

if  (X  !•=  x2  SS  y  !-  y2)  { 

double  tempi,  temp2,  h,  a,  den; 


Coords  y.  Coord  x2. 
Coord  y2)  { 


tempi  =  (double)  (x2  -  x) ; 
temp2  “  (double)  (y2  -  y) ; 

den  -  sqrt( (tempi  *  tempi)  +  (temp2  *  temp2)); 
a  «  (double)  (OperatorRadius)  *  (teit?)l  /  den)  ; 
h  -  ^t-emp2  /  tempi)  *  a; 


X  +“  (Coord)  a; 
y  +-  (Coord)  h; 

1 

else  { 

if  (x  "  x2)  ( 

if  (y2  >  y)  { 

y  +«  OperatorRadius; 
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) 

else  { 

if  {y2  <  y)  { 

y  —  OperatorRadius; 

) 

) 

} 

else  { 

if  (y  -=  y2)  { 

if  (x2  >  X)  { 

X  +-  OperatorRadius; 

) 

else  { 

if  (x2  <  x)  { 

X  —  OperatorRadius; 

) 

) 

) 

) 

) 

) 

//  Finds  the  operator  that  contains  the  given  points  and  modifies 
//  those  points  to  be  where  the  data  flow  intersects  with  the  operator 

EllipseSelection*  Drawing: : SetEndptsInOperator (Coo rd&  xl,  Coords  yl, 

Coords  x2.  Coords  y2)  { 

EllipseSelection*  esl  »  EndptsInOperator (xl,yl) ; 
if  (esl  !-  nil)  { 

FindOperatorIntersection (xl,  yl,  x2,  y2) ; 

) 

return  esl; 

} 

II  Add  ellipse  to  operator  list 

void  Drawing: :OperatorAppend (EllipseSelection*  es)  ( 

OperatorSelection*  os  -  new  OperatorSelection(es); 
ol->Append (new  OperatorSelNode (os) ) ; 

} 

/ /  Lines  no  longer  used,  use  splines  instead 

/*  *****  start  of  Commented  Out  Code  ***** 

void  Drawing: :DataFlowLineAppend (Li neSelection*  Is, 

EllipseSelection*  esO, 
EllipseSelection*  esl)  ( 

DFDLineSelection*  DFDLine  =  new  DFDLineSelection (Is) ; 
if  (esO  !*  nil)  { 

ol->SetCur (esO) ; 
if  ( !ol->AtEnd() )  ( 
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} 


ol->GetCur  0 ->GetSelection () -> 

OutputDataFlowLineAppend(new  DFDLineSelNode (DFDLine) ) ; 


if  (esl  !“  nil)  { 

ol->SetCur (esl) ; 
if  (!ol->AtEnd() )  { 

ol->GetCur ( ) ->GetSelection ( ) -> 

InputOataFlowLineAppend(new  DFDLineSelNode (DFDLine) ) ; 

} 

) 

*****  End  of  Commented  Out  Code  *****  */ 


//  Add  data  flow  to  operator  list 


void  Drawing: :DataFlowSplineAppend(BSplineSelection*  ss, 

EllipseSelection*  esO,  EllipseSelection*  esn)  { 
DFDSplineSelection*  DFDSpline  —  new  DFDSplineSelection (ss) ; 
if  (esO  -=  esn)  { 

ol->SetCur (esO)  ; 
if  (!ol->AtEnd{) )  { 

ol->GetCur  0 ->GetSelection () -> 

Self LoopAppend (new  DFDSplineSelNode (DFDSpline) ) ; 

) 


) 

else  ( 

if  (esO  !“  nil)  { 
ol->SetCur (esO) ; 
if  (!ol->AtEnd() )  ( 

ol->GetCur  0  -•>Get Selection  ()  ->OutputDataFlowSplineAppend  ( 

new  DFDSplineSelNode (DFDSpline) ) ; 

) 

} 


if  (esn  !“  nil)  { 

ol->SetCut (esn) ; 
if  (!ol->AtEnd() )  ( 

ol->GetCur () ->GetSelection () ->InputDataFlowSpline Append ( 

new  DFDSplineSelNode  (DFD  ’-line)  )  ; 

) 

) 

) 

) 

//  Add  label  to  operator  list 


void  Drawing: :LabelAppend(TextSelection*  ts.  Selection*  sel)  { 
Classid  classid  =  sel->GetClassId() ; 
switch  (classid)  { 
case  OPERATOR: 
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ol->SearchOperators (ts,  (EllipseSelection* )  sel); 
break; 

/*  *****  Start  of  Commented  Out  Code 

case  DATAFLOW_LINE : 

ol->SearchOperatorsForLine (ts,  (LineSelection*)  sel); 
break ; 

*****  End  of  Commented  Out  Code  *****  */ 
case  DATAFLOW_SPLINE: 
char*  old_name  - 

ol->SearchOperatorsForSpline (ts,  (BSplineSelection*)  sel)  ; 
if  (old_name  !-  nil)  ( 

AddLabelToSt reams (old_name,  ts) ; 

} 

break; 

case  SELFLOOP: 

ol->SearchOperatorsForSpline (ts,  (BSplineSelection*)  sel) ; 
break ; 

) 

) 

//  Add  label  to  operator  list.  When  reading  from  file,  do  not  want  to 
//  update  PSDL. 

void  Drawing: : LabelReadAppend (TextSelection*  ts.  Selection*  sel)  { 
Classid  classid  -  ael->GetClassId{) ; 
switch  (classid)  { 
case  OPERATOR: 

ol->SearchOperators (ts,  (EllipseSelection*)  sel); 
break; 

case  DATAFLOW_SPLINE: 
char*  old_name  - 

ol->SearchOperatorsForSpline (ts,  (BSplineSelection*)  sel); 

break; 

case  SELFLOOP: 

ol->SearchOperatorsForSpline (ts,  (BSplineSelection*)  sel) ; 
break ; 

) 

) 

//  For  all  operators  selected,  add  their  mets  and  labels  to  the  selection 
//  list 

void  Drawing: :AddTextToSelectionList 0  ( 
int  op_index  -  0,  sl_index  -  0; 
int  op_index_array [sl->Size ( ) ) ; 
for  (si  ->First();  ! 3l->AtEnd() ;  sl->Next())  ( 

if  (sl->GetCur ( ) ->GetSelection () ->GetClassId ( )  ==  OPERATOR)  { 
op_index_array [op_index++]  =  sl_index; 

) 

++sl  index; 
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Selection*  s; 

TextSelection*  ts; 

TextSelection*  inet_t3; 

TextSelection*  lat_ts; 

for  (int  i  -  0/  i  <  op_index;  ++i)  { 

3  “  sl->lndex (op_index_array [i] ) ->GetSelection ( ) ; 
ol->SetCur ( (EllipaeSelection*)  s) ; 
if  ( !ol->AtEnd() )  { 

t3  “  ol->GetCur()->GetSelection()->G€tTextSelection() ; 
if  (ts  !-  nil)  ( 

if  (!sl->Find(ts) )  { 

3l->Append{new  SelectionNode (ts) ) ; 

} 

1 

inet_ts  -  ol->GetCur ( ) ->GetSelection ( ) ->GetMETSelection ( ) ; 
if  {met_ts  !-  nil)  { 

if  ( ! sl->Find (met_ts) )  ( 

3l->Append(new  SelectionNode (met_ts) ) ; 

) 

) 

) 

) 

} 

//  For  all  operators  selected,  add  their  associated  self  loops  and  thei 
//  labels  to  the  selection  list 

void  Drawing; -.AddSelf  LoopsToSelectionList  {)  ( 
int  op_index  -  0,  sl_index  *  0; 
int  op_index_array [3l->Size {) 1 ; 
for  (si  ->Fir3t();  ! sl->AtEnd() ;  sl->Next())  ( 

if  (sl->GetCur  ()->GetSelection()->(3etClassId()  ==  OPERATOR)  ( 
op_index_array [op_index++]  «  sl_index; 

) 

++sl_index; 

) 

Selection*  s; 

DFDSplineSelList*  dssl; 

for  (int  i  -  0;  i  <  op_index;  ++i)  ( 

s  “  sl->Index (op_index_array[i] ) ->GetSelection () ; 
ol->SetCur ( (EllipseSelection*)  s) ; 
if  (!ol->AtEnd() )  { 

dssl  -  ol->GetCur  0 ->GetSelection  ( ) ->(3etSelfLoopList  ( )  ; 
for  (dssl->Fir3t () ;  !ds3l->AtEnd() ;  dssl->Next 0 )  ( 
if  ( ! sl->Find (dssl->GetCur () ->GetSelection ( ) -> 

GetSplineSelection ( ) ) )  { 
sl->Append (new  SelectionNode (dssl->GetCur ( ) -> 

GetSelection ( ) ->GetSplineSelection ( ) ) ) ; 

1 

TextSelection*  ts  » 

d3sl->GetCur { ) ->GetSelection ( ) ->GetTextSelection ( ) ; 
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if  (ts  !“  nil  &&  ! sl->Find(ts) )  { 

printf ("appending  self  lop's  label  to  sl\n"); 
if  {t3->GetClaaaId()  —  LABEL_SL)  { 

printf ("its  a  self  loop  labelNn"); 

) 

else  ( 

if  (ts->GetClassId()  --  LABEL_DF)  ( 
printf ("its  a  df  loop\n"); 

) 

else  { 

printf ("we  do  not  know  what  it  is\n") ; 

} 

) 

al->Append(new  SelectionNode (ts) ) ; 


//  Modify  all  data  flows  associated  with  the  given  operator  to  move 
//  to  the  new  location  that  the  operator  moved  to 

void  Drawing; : ReplaceAssociatedOb jects (EllipseSelection*  op,  Drawing- 
View*  dv)  { 

float  fx,  fy; 

Coord  center_x,  center_y; 
ol->SetCur (op) ; 
if  ( !ol->AtEnd() )  { 

op->GetCenter (fx,  fy) ; 
center_x  -  (Coord)  fx; 
center_y  «  (Coord)  fy; 

/*  *****  start  of  Commented  Out  Code  ***** 

ReplaceInputDFLines (center_x,  center_y,  dv) ; 
ol->SetCur (op) ; 

ReplaceOutputDFLines (center_x,  center_y,  dv) ; 
ol->SetCur (op) ; 

*****  End  of  Commented  Out  Code  *****  */ 

ReplaceInputDFSplines (center_x,  center_y,  dv) ; 
ol->SetCur (op) ; 

ReplaceOutputDFSplines (center_x,  center_y,  dv) ; 

1 

) 

/*  *****  start  of  Commented  Out  Code  ***** 

void  Drawing: : ReplaceInputDFLines (Coord  cx.  Coord  cy,  DrawingView*  dv)  ( 
Coord  x_new[2],  y_new[2]; 

Coord  x_old_0,  y_old_0,  x_old_l,  y_old_l,  x_new_l,  y_new_l; 
LineSelection*  oldls; 

LineSelection*  newls; 

DFDLineSelList*  ill  * 
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ol->GetCur ( ) ->GetSelection ( ) ->GetInputDFLineList ( ) ; 
int  size  ••  ill->Size(); 
int  index  -  0; 
ill->First {) ; 
while  (index  <  size)  { 

oldls  -  ill->GetCur()->GetSelection()->(3etLineSelection()  ; 
TextSelection*  ts  " 

ill->GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 
oldls->GetOriginal2 (x_old_0,  y__old_0,  x_old_l,  y_old_l); 
x_new_l  -  cx; 
y_new_l  ■  cy; 

FindOperatorIntersection (x_new__l,  y_new_l,  x_old_0,  y_old_0); 

x_new[01  “  x_old_0; 

y_new [ 0 ]  -  y_old_0 ; 

x_new  ( 1  ]  -  x_new_l  ; 

y_new [ 1 ]  -  y_new_l ; 

newls  “  (LineSelection*)  oldls 

->CreateReshapedCopy {x_new,  y_new,  2); 
ReplaceChange*  rc  »  new  ReplaceChange (this,  dv,  oldls,  newls); 
rc->Do ( ) ; 

ReplaceLabel (newls,  ts) ; 


// 

SelectionList*  temp  -  GetSelections () ; 

// 

SelectionList*  align_sels  «  new  SelectionList 

// 

align_sels->Append (new 

SelectionNode (newls) ) ; 

n 

align_sels->Append (new 

SelectionNode (ts) ) ; 

// 

Select (align_sels) ; 

// 

Align (Center,  Center); 

// 

Select (temp) ; 

++index; 

ill->Index (index) ; 


) 

) 

void  Drawing: : ReplaceOutputDFLines (Coord  cx.  Coord  cy,  DrawingView*  dv)  { 
Coord  x_new[2],  y_new[2]; 

Coord  x_old_0,  y_old_0,  x_old_l,  y_old_l,  x_new_0,  y_new_0; 
LineSelection*  oldls; 

LineSelection*  newls; 

DFDLineSelList*  oil  - 

ol->GetCur () ->GetSelection () ->GetOutputDFLineList ( )  ; 
int  size  »  oll->Size(); 
int  index  =  0; 
oll->First  0 ; 
while  (index  <  size)  { 

oldls  “  oll->GetCur ( ) ->GetSelection ( ) ->GetLineSelection ( ) ; 
TextSelection*  ts  - 

oll->GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 
oldls->GetOriginal2 (x_old_0,  y_old_0,  x_old_l,  y_old_l); 
x_new_0  “  cx ; 
y_new_0  •  cy; 

FindOperatorIntersection (x_new_0,  y_new_0,  x_old_l,  y_old_l) ; 
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x_new  [  0  ]  -  x_new_0  ; 
y_new [ 0 ]  -  y_new_0 ; 
x_new [ 1 ]  -  x_old_l ; 
y_new [ 1 ]  ■  y_old_l ; 
newls  -  (LineSelection*)  oldls 

->CreateRe3hapedCopy (x_new,  y_new,  2) ; 
ReplaceChange*  rc  -  new  ReplaceChange (this,  dv,  oldls,  newls) ; 
rc->Do ( ) ; 

ReplaceLabel (newls,  ts); 

++index; 

oll->Index (index) ; 

) 

} 

*****  End  of  Commented  Out  Code  *****  */ 

//  Modify  all  input  data  flows  associated  with  an  operator 

void  Drawing: :ReplaceInputDFSplines (Coord  cx.  Coord  cy,  DrawingView*  dv) 
{ 

Coord*  x_new; 

Coord*  y_new; 

Coord  x_new_n,  y_new_n; 

Coord*  x_old; 

Coord*  y_old; 

BSplineSelection*  oldss; 

BSplineSelection*  newss; 

DFDSplineSelList*  isl  - 

ol->GetCur 0 ->GetSelection 0 ->GetInputDFSplineList () ; 
int  size  -  isl->Size () ; 
int  index  -  0; 
isl->First  () ; 
while  (index  <  size)  { 

oldss  “  isl->GetCur ( ) ->GetSelection ( ) ->GetSplineSelection  ( ) ; 
TextSelection*  ts  •= 

isl->GetCur  ( )  ->(3etSelection  ( )  ->GetTextSelection  ( ) ; 
TextSelection*  lat_ts  « 

isl->C3etCur  ( )  ->GetSelection  ( )  ->GetLatencySelection  ( )  ; 
int  num  -  oldss->GetOriginal (x_old,  y_old) ; 
x_new_n  -  cx ; 
y_new_n  =  cy; 

FindOperatorIntersection (x_new_n,  y_new_n,  x_old[num-2] , 

y_old[niim-2]  )  ; 

x_new  -  x_old; 

y_new  -  y_old; 

x_new[nvim-l]  -  x_new_n; 

y_new[num-l]  -  y_new_n; 

newss  “  (BSplineSelection*)  oldss 

->CreateReshapedCopy (x_new, y_new, num 

, DATAFLOW_SPLINE) 

ReplaceChange*  rc  -  new  ReplaceChange (this,  dv,  oldss,  newss); 
rc->Do ( ) ; 
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ReplaceLabel (newss,  ts) ; 
if  (ts  !“  nil)  { 

ReplaceLatency (ts,  lat_ts) ; 

) 

else  { 

ReplaceLatency (newss,  lat_ts) ; 

) 

++ index; 

isl->Index (index) ; 

) 

) 

//  Replace  all  output  data  flows  connected  to  operator 

void  Drawing: :ReplaceOutputDFSplinea (Coord  cx.  Coord  cy,  DrawingView*  dv) 

{ 

Coord*  x_new; 

Coord*  y_new; 

Coord  x_new_0,  y_new_0; 

Coord*  x_old; 

Coord*  y_old; 

BSplineSelection*  oldss; 

BSplineSelection*  newss; 

DFDSplineSelList*  osl  - 

ol->GetCur ( ) ->GetSelection ( ) ->GetOutputDFSplineList ( ) ; 
int  size  -  osl->Size(); 
int  index  -  0; 
osl->First  0 ; 
while  (index  <  size)  { 

oldss  =  osl-><jetCur 0 ->GetSelection 0 ->GetSplineSelection 0 ; 
TextSelection*  ts  • 

03l->GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 
TextSelection*  lat_ts  = 

osl->GetCur ( ) ->GetSelection ( ) ->GetLatencySelection ( ) ; 
int  nuiti  =  oldss->GetOriginal  (x_old,  y_old)  ; 
x_new_0  =  cx; 
y_new_0  “  cy; 

FindOperatorIntersection (x_new_0,  y_new_0,  x_old[l),  y_old[l]); 

x_new  “  x_old; 

y_new  =  y_old; 

x_,iew[0]  -  x_new_0; 

y_new [ 0 ]  -  y_new_0 ; 

newss  -  (BSplineSelection*)  oldss 

->CreateReshapedCopy (x_new, y_new, num 

, DATAFLOW_SPLINE) 

ReplaceChange*  rc  =  new  ReplaceChange (this,  dv,  oldss,  newss); 
rc->Do  ( ) ; 

ReplaceLabel (newss,  ts) ; 
if  (ts  !•  nil)  { 

ReplaceLatency (ts,  lat_ts) ; 

) 
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else  ( 

ReplaceLatency (newss,  lat_ts); 

) 

++index; 

osl->Index (index) ; 

} 

) 

//  Not  called  anymore,  because  self  loops  can  be  translated 

void  Drawing: : ReplaceSelf Loops (Coord  cx.  Coord  cy,  DrawingView*  dv)  { 
Coord*  x_new; 

Coord*  y_new; 

Coord  x_new_n,  y_new_n,  x_new_0,  y_new_0; 

Coord*  x_old; 

Coord*  y_old; 

BSplineSelection*  oldss; 

BSplineSelection*  newss; 

DFDSplineSelList*  sll  = 

ol->GetCur ( ) ->GetSelection ( ) ->GetSelf LoopList ( ) ; 
int  size  =  sll->Si2e(); 
int  index  =  0; 
sll->First  () ; 
while  (index  <  size)  ( 

oldss  ”=  sll->GetCur 0 ->GetSelection () ->GetSplineSelection ( ) ; 

int  num  =  oldss->GetOriginal (x_old,  y_old) ; 

x_new_n  *=  cx; 

y_new_n  =  cy; 

x_new_0  *  cx; 

y_new_0  =  cy; 

FindOperatorIntersection (x_new_n,  y_new_n,  x_old[num-2] , 

y_old[num-2]  )  ; 

FindOperatorIntersection (x_new_0,  y_new_0,  x_old[l),  y_old[l]); 

x_new  =  x_old; 

y_new  =  y_old; 

x_ne w [ num- 1 ]  =  x_new_n ; 

y_new[num-l]  =  y_new_n; 

x_new  CO]  =  x_new_0 ; 

y_new [ 0 ]  =  y_new_0 ; 

newss  “  (BSplineSelection*)  oldss 

->CreateReshapedCopy (x_new, y_new, num, 

SELF’  ''OP) 

ReplaceChange*  rc  =  new  ReplaceChange (this,  dv,  oldss,  newss); 
rc--»Do  ( )  ; 

++index; 

sll->Index (index)  ; 

) 

} 

//  Write  the  PSDL  specification  of  the  given  operator  to  a  temporary 
//  file  to  be  edited 
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void  Drawing: :WritePSDIFor0perator{Ellip3eSelection*  op)  { 
ol->SetCur (op) ; 
if  ( !ol->AtEnd() )  { 

char*  filename  “  Ma)ceTmpFileName  (PSDL_FILE)  ; 

FILE*  fptr  -  fopen (filename, "w") ; 

char*  psdl  -  ol->GetCur ( ) ->GetSelection ( ) ->GetPSDLText () ; 
fprintf (fptr, "%s",psdl) ; 
f close (fptr) ; 
delete  filename; 
delete  psdl; 

) 

) 

void  Drawing: : ReplaceLabel (Selection*  newsel,  TextSelection*  ts)  ( 
if  (ts  !•=  nil)  { 

SelectionList*  temp  •  GetSelections ( ) ; 

SelectionList*  align_sels  =  new  SelectionList; 
align_sels->Append (new  SelectionNode (newsel) ) ; 
align_sels->Append (new  SelectionNode (ts) ) ; 

Select (align_sels) ; 

Align (Center,  Center); 

Select (temp) ; 

) 

) 

void  Drawing: ;ReplaceLatency (Selection*  newsel,  TextSelection*  lat_ts)  { 
if  (lat_ts  !»  nil)  ( 

SelectionList*  temp  «  GetSelections () ; 

SelectionList*  align_sels  -=  new  SelectionList; 
align_sels->Append (new  SelectionNode (newsel) ) ; 
align_sels->Append (new  SelectionNode (lat_ts) ) ; 

Select (align_sels) ; 

Align (Center,  Center); 

Align (Top,  Bottom); 

Select (temp) ; 

) 

) 

//  add  met  to  operator  selection  list 

void  Drawing: :METAppend (TextSelection*  met_ts,  EllipseSelection*  op)  i 
ol->AddMETToOperator (met_ts,  op) ; 

) 

//  add  latency  to  data  flow  in  operator  list 

void  Drawing: :LatencyAppend (TextSelection*  lat_ts,  BSplineSelection*  df) 

( 

ol->AddLatencyToDataFlow (lat_ts,  df)  ; 

1 

//  change  PSDL  specification  of  drawing  to  use  given  prototype  name  as 
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//  operator  id 


void  Drawing: rUpdatePSDLSpec (const  char*  new_prototype_name)  { 
int  index  -  spec_txb->ForwardSearch (new  Regexp (OPER_TKN) , 0) ; 
if  (index  >•  0)  ( 

int  end_index  =  spec_txb->EndOf Line (index) ; 
spec_txb->Delete (index, end_index-index) ; 
if  (new_prototype_name  ==  nil)  { 

spec_txb->In3ert (index, ID_TKN, strlen (ID_TKN) ) ; 

) 

else  ( 

spec_txb->Insert (index, new__prototype_name, 

strlen (new_prototype_name) ) 

) 

} 

} 


//  write  PSDL  specification  of  drawing  to  temporary  file  to  be  edited 

void  Drawing: :WritePSDLForDrawing ()  { 

const  char*  text  =  spec_txb->Text ( ) ; 
char*  filename  =  Ma)ceTmpFileName  (PSDL_FILE)  ; 

F.TLE*  psdl  =  f open  (filename,  "w")  ; 
fprintf (psdl,  "%s",  text) ; 
f close (psdl) ; 
delete  filename; 

) 


//  write  the  PSDL  graph  to  a  file 

EdgeList*  Drawing: :WritePSDLGraph (FILE*  iptr)  { 
fprintf (iptr, IMP_TKN) ; 
fprintf (iptr, GR_TKN) ; 

WriteVertices (iptr)  ; 

EdgeList*  el  =  WriteEdges (iptr) ; 
return  el; 


//  write  PSDL  edges  to  file  containing  PSDL  graph 

EdgeList*  Drawing: :WriteEdges (FILE*  fptr)  { 

EdgeList*  el  =  BuildEdgeList () ; 

for  (el->First ( ) ;  !el->AtEnd() ;  el->Next())  ( 

char*  froml  =  el->GetCur () ->GetSelection ( ) ->GetFromVertexLabel ( ) 
char*  tol  «  el->GetCur ( ) ->GetSelection ( ) ->GetToVertexLabel ( ) ; 
char*  label  •=  el->GetCur  () ->GetSelection  () ->GetEdgeLabel  ()  ; 
char*  f_f ixed_string  =  RemoveBadChars (froml ) ; 
char*  t_f ixed_string  =  RemoveBadChars (tol ) ; 
char*  latency  •=  el->GetCur  ( ) ->GetSelection  ( ) 

->GetEdgeLatency ( )  ; 

char*  fixed  label  =  RemoveBadChars (label) ; 


if  (latency  !-  nil)  { 

fprintf (fptr,  "%3  %s  :  %s  %s  ->  %s\n",  EDGE_TKN,  fixeci_label, 
latency,  f_fixed_string,  t_f ixed_string) ; 

) 

else  { 

fprintf (fptr,  "%s  %s  %s  ->  %s\n",  EDGE_TKN,  fixed_label, 

f_f ixed_string,  t_fixed_string) ; 

} 

delete  f_fixed_string; 
delete  t_fixed_string; 
delete  f ixed_label; 

} 

return  el; 


//  write  PSDL  vertices  to  file  containing  PSDL  graph 

void  Drawing: -.WriteVertices  (FILE*  fptr)  { 

for  (ol->First () ;  !ol->AtEnd() ;  ol->Next())  { 

TextSelection*  ts  «  ol->GetCur () ->GetSelection () ->GetTextSelec- 

tion  0  ; 

char*  label; 
const  char*  tmp; 
char*  met; 
int  len; 

if  (ts  !=  nil)  ( 

tmp  -  ts->GetOriginal (len) ; 
label  “  new  char[len+l]; 
strncpy (label, tnp, len) ; 
label [len]  -  '\0'; 

) 

else  { 

label  =  ID_TKN; 

) 

printf ("in  write  vertices,  label  is  %s\n",  label); 
boolean  hasMET  •  false; 

ts  =  ol->GetCur () ->GetSelection() ->GetMETSelection () ; 
if  (ts  !=  nil)  { 
hasMET  «  true; 
tmp  -  ts->GetOriginal (len) ; 
met  -  new  char[len+l]; 
strncpy (met, tn^, len) ; 
met [len]  -  '\0'; 

) 

char*  fixed_string  *  RemoveBadChars (label) ; 
fprintf (fptr,  "%s  %s  ",  VER_TKN,  fixed_string) ; 
delete  f ixed_string; 
if  (hasMET) 

fprintf (fptr,  %s\n",  met) ; 

else 
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) 


fprintf (fptr, "\n") ; 


//  construct  list  of  edges  with  associated  input  and  output  operators 
//  to  be  used  when  creating  PSDL  graph 

EdgeList*  Drawing: :BuildEdgeList ()  { 

EdgeList*  el  =  new  EdgeList; 

for  (ol->First ( ) ;  ! ol->AtEnd ( ) ;  ol->Next())  { 

OperatorSelection*  op  -  ol->GetCur ( ) ->GetSelection ( ) ; 

DFDSplineSelList*  insl  - 

ol->GetCur ( ) ->GetSelection () ->GetInputDFSplineList ( ) 
for  (insl->First () ;  ! insl->AtEnd() ;  insl->Next {) )  { 

if  ( !el->FindSpline (insl->GetCur 0 ->GetSelection 0 ) )  { 

Edge*  edgel  =  new  Edge {insl->GetCur ( ) ->GetSelection ( ) ) ; 
edgel->SetToVertex (op) ; 
el->Append(new  EdgeNode (edgel) ) ; 

) 

else  { 

el->GetCur ( ) ->GetSelection ( ) ->SetToVertex (op) ; 

) 

) 


) 


DFDSplineSelList*  outsl  * 

ol->GetCur ( ) ->GetSelection ( ) ->GetOutputDFSplineList ( ) 
for  (outsl->First ( ) ;  !outsl->AtEnd() ;  outsl->Next () )  ( 

if  ( !el->FindSpline (outsl->G€tCur 0 ->GetSelection () ) )  ( 

Edge*  edge2  =  new  Edge (outsl->GetCur ( ) ->GetSelection ( ) ) 
edge2->SetFroniVertex  (op) ; 
el->Append (new  EdgeNode (edge2 ) )  ; 

) 

else  1 

el->GetCur ( ) ->GetSelection () ->SetFromVertex (op)  ; 

) 

) 

) 

return  el; 


//  write  psdl  specification  file  and  psdl  implementation  file  and  write 
//  psdl  specification  file  for  all  the  operators  and  write  file  needed 
//  to  rebuild  operator  list  when  reentering  editor 


void  Drawing: :WriteDFDFiles (char*  dir,  const  char*  prototype_name)  { 

char*  spec_filename  =  new  char [strlen (dir)  +  strlen (prototype_name) 

+  SPEC_EXT_LEN  +1]; 

strcpy (spec_f ilename, dir)  ; 

strcat (spec_filename,prototype_name) ; 

strcat (spec_f ilename, SPEC_PSDL_EXT) ; 

FILE*  sptr  =  f open (spec_f ilename,  "w"); 
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const  char*  3pec_string  *  spec_txb->Text { ) ; 
fprintf (sptr,  "%s",  spec_string) ; 
fclose (sptr) ; 
delete  spec_filenaine; 

char*  iinp_filename  “  new  char [strlen (dir)  +  strlen (prototype_name) 

+  IMP_EXT_LEN  +  1); 

strcpy  (imp_filenaine,  dir)  ; 

strcat (in^_filename,prototype_name) ; 

strcat (in?>_filename, IMP_PSDL_EXT) ; 

FILE*  iptr  »  fopen (imp_filename,  "w"); 

EdgeList*  el  -  WritePSDLGraph (iptr) ; 
if  (3treanis_txb  !-  nil)  { 

const  char*  stream3_3tring  -  streams_txb->Text ( ) ; 
fprintf (iptr,  "%3",  streams_string)  ; 

) 

if  (constraints_txb  !-  nil)  { 

const  char*  con_string  “  constraints_txb->Text ( ) ; 
fprintf (iptr,  "%s",  con_string) ; 

1 

fprintf (iptr,  "%s",  END_TKN) ; 
fclose (iptr) ; 
delete  imp_f ilename; 

WritePSDLForAllOperators (dir,  prototype_name) ; 

char*  graph_f ilename  «■  new  char  [strlen (dir)  +  strlen (prototype_name)  + 

DFD_EXT_LEN  +  1 )  ; 

strcpy (graph_f ilename,  dir) ; 

strcat (graph_f ilename, prototype_name) ; 

strcat (graph_f ilename, DFD_EXT)  ; 

FILE*  gptr  -  fopen (graph_f ilename, "w") ; 

WriteDFDInf o (gptr,  el) ; 

fclose (gptr)  ; 

delete  graph_f ilename; 

) 

//  read  psdl  specification  file  and  psdl  implementation  file  and  read 
//  psdl  specification  file  for  all  the  operators  and  read  in  file  to 
//  rebuild  operator  list 

void  Drawing;  .-ReadDFDFiles  (char*  dir,  const  char*  prototype_name)  ( 
printf("in  ReadDFDFilesXn")  ; 

char*  spec_f ilename  •  new  char[strlen(dir)  +  strlen (prototype_name) 

+  SPEC_EXT_LEN  +1]; 

Strcpy (spec_f ilename, dir) ; 

strcat (spec_f ilename, prototype_name) ; 

strcat (spec_f ilename, SPEC_PSDL_EXT) ; 

printf ("spec_f ilename  is  %s\n",  spec_filename) ; 

FILE*  sptr  -  fopen (spec_f ilename,  "r") ; 
if  (sptr  !=  nil)  { 
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char*  spec_string  *  ReadBackPSDL (sptr) ; 
f close (sptr) ; 
if  (spec_string  !-  nil)  { 

printf ("spec_string  is  %s\n",  spec_string) ; 
if  (spec_txb  !-  nil) 
delete  spec_txb; 

spec_txb  -  new  TextBuf fer (spec_string,  strlen (spec_string) , 

TXTBUFLEN) ; 


} 

) 

delete  spec_filename; 

char*  iinp_f ilename  -  new  char [strlen (dir)  +  strlen (prototype_name) 

+  IMP_EXT_LEN  +1]; 

strcpy  (iinp_f ilename,  dir)  ; 

strcat (imp_f ilename, prototype_name) ; 

strcat (imp_f ilename, IMP_PSDL_EXT)  ; 

printf  ("inp_f ilename  is  %s\n",  iitp_filename)  ; 

FILE*  iptr  -  f open (inp_f ilename,  "r"); 
if  (iptr  !=  nil)  { 

char*  imp_string  -  ReadBac)cPSDL  (iptr)  ; 
fclose (iptr) ; 
if  (imp_string  !-  nil)  { 

printf  ("imp_string  is  %s\n",  iiT^_string)  ; 

FillImpBuf fers (imp_string) ; 

) 

) 

delete  iir^_f ilename; 

char*  graph_f ilename  «  new  char  [strlen (dir)  +  strlen (prototype_name)  + 

DFD_EXT_LEN  +1]; 

Strcpy (graph_f ilename, dir)  ; 

strcat (graph_f ilename, prototype_name) ; 

strcat (graph_f ilename, DFD_EXT) ; 

printf ("graph_f ilename  is  %s\n",  graph_f ilename) ; 

FILE*  gptr  =  f open (graph_f ilename, "r") ; 
if  (gptr  !=  nil)  { 

ReadDFDInfo (gptr) ; 
fclose (gptr) ; 

) 

delete  graph_f ilename ; 

ReadPSDLForAllOperators (dir,  prototype_name) ; 

) 

//  write  PSDL  specificatio  for  each  operator  to  a  file  created  by  conte- 
nating 

//  the  operator's  identifier  with  the  prototype  name 

void  Drawing: :WritePSDLForA110perators (char*  dir,  const  char*  prototype_- 
name )  { 


197 


for  (ol->Fir3t 0 ;  ! ol->AtEnd 0 ;  ol->Next{))  { 

TextSelection*  ts  *  ol->GetCur () ->GetSelection () ->GetTextSelec- 

tionO  ; 

if  (ts  !-  nil)  { 
int  len; 

const  char*  tmp_string  -  t3->Get0riginal (len) ; 
char*  op_naine  -  new  char  [len  +  1]; 
strncpy (op_name, tn^_string, len) ; 
op_naine [len]  -  '\0'; 

char*  fixed_nanie  ••  RemoveBadChars  (op_naine) ; 
char*  filename  -  new  char [strlen (dir)  +  strlen (prototype_name) 

+  strlen (fixed_name) 

+  SPEC_EXT_LEN  +  2 ]  ; 

strcpy (filename, dir)  ; 
strcat (filename, prototype_name) ; 
strcat (filename, " . ") ; 
strcat (filename, fixed_name) ; 
strcat (filename, SPEC_PSDL_EXT) ; 

FILE*  fptr  «  f open (filename, "w") ; 

char*  text  «  ol->GetCur () ->GetSelection ( ) ->GetPSDLText ( ) ; 

fprintf (fptr,  "%s",  text); 

fclose (fptr) ; 

delete  op_name; 

delete  fixed_name; 

delete  filename; 

delete  text; 

) 

) 

} 

//  write  contents  of  streams  buffer  to  file 

void  Drawing: :WriteStreams ()  ( 

char*  filename  -  MakeTmpFileName (STREAMS_FILE) ; 

FILE*  fptr  “  f open (filename,  "w"); 
if  (streams_txb  !*  nil)  [ 

const  char*  text  «  streams_txb->Text ( ) ; 
fprintf (fptr,  "%s",  text); 

} 

fclose (fptr) ; 
delete  filename; 


//  write  contents  of  constraints  buffer  to  file 

void  Drawing: : WriteConstraints ()  { 

char*  filename  -  Ma)ceTmpFileName  (CONSTRAINTS_FILE)  ; 
FILE*  fptr  -  f open (filename,  "w")  ; 
if  (constraints_txb  !”  nil)  { 

const  char*  text  •  constraints_txb->Text ( )  ; 
fprintf (fptr,  "%s",  text) ; 

1 
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fclose (fptr) ; 
delete  filename; 


//  after  user  edits  psdl  for  operator,  must  read  back  into  operator's 
//  text  buffer 

void  Drawing: :ReadPSDLForOperator (FILE*  fptr,  EllipseSelection*  op)  { 
char*  text  •  ReadBackPSDL (fptr) ; 
if  (text  !=  nil)  { 
ol->SetCur (op) ; 
if  ( !ol->AtEnd() )  { 

ol->GetCur () ->GetSelection () ->SetPSDLText (text) ; 

) 

) 


//  after  user  edits  psdl  for  drawing,  must  read  back  into  specification 
//  text  buffer 

void  Drawing: :ReadPSDLForDrawing()  { 

char*  filename  -  MakeTmpFileName (PSDL_FILE) ; 

FILE*  fptr  =  f open (filename,  "r") ; 
if  (fptr  !»  nil)  { 

char*  text  «  ReadBackPSDL (fptr) ; 
fclose (fptr) ; 
if  (text  !*  nil)  { 

if  (spec_txb  !=  nil) 
delete  spec_txb; 

spec_txb  «  new  TextBuffer (text, strlen (text) , TXTBUFLEN) ; 

) 

) 

delete  filename; 


//  read  file  containing  PSDL 

char*  Drawing: : ReadBackPSDL (FILE*  fptr)  ( 
boolean  first_time  =  true; 
char*  text  =  nil; 
char*  line  =  new  char  [200]; 
while  (fgets (line, 200, fptr)  !=  nil)  ( 
if  (first_time)  [ 

text  -  new  char [TXTBUFLEN] ; 
strcpy (text, line) ; 
first_time  «  false; 

) 

else  [ 

strcat (text, line) ; 

) 

) 

delete  line; 


199 


return  text; 


//  after  user  edits  psdl  streams,  must  read  back  into  streams  text  buffe 

void  Drawing: :ReadStreams  ()  { 

char*  filename  "■  MakeTmpFileName (STREAMS_FILE) ; 

FILE*  fptr  -  f open (filename,  "r"); 
if  (fptr  !»  nil)  ( 

char*  text  ReadBackPSDL(fptr); 
f close (fptr) ; 
if  (text  !-  nil)  { 

if  (stream3_txb  !-  nil)  ( 
delete  streams_txb; 

} 

streams_txb  -  new  TextBuffer (text, strlen (text) , TXTBUFLEN) ; 

) 

) 

delete  filename; 


//  after  user  edits  psdl  constraints,  must  read  back  into  constraints  text 
II  buffer 

void  Drawing: : ReadConstraints ( )  { 

char*  filename  -  MakeTitpFileName  (CONSTRAINTS_FILE)  ; 

FILE*  fptr  ■  f open (filename,  "r") ; 
if  (fptr  !••  nil)  { 

char*  text  -  ReadBackPSDL (fptr) ; 
f close (fptr) ; 
if  (text  !-  nil)  { 

if  (constraints_txb  !•  nil)  ( 
delete  constraints_txb; 

I 

constraints_txb  -  new  TextBuffer (text, strlen (text) , TXTBUFLEN) 

) 

) 

delete  filename; 


//  write  information  to  file  to  be  able  to  rebuild  operator  list  when 
//  coming  back  into  editor 

void  Drawing: :WriteDFDInfo (FILE*  fptr,  EdgeList*  el)  ( 

TextSelection*  ts; 

for  (ol->First () ;  !ol->AtEnd() ;  ol->Next())  { 

OperatorSelection*  op  -  ol->(3etCur  ( ) ->GetSelectior.  ( )  ; 
int  pict_op__index  -  picture->FindIndex (op->GetEllipseSelection () ) 
WriteOperator (fptr,  pict_op_index) ; 

ts  «  op->GetTextSelection ( ) ; 
if  (ts  !-  nil)  I 
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int  pict_label_index  •  picture->FindIndex(ts); 
WriteOpLabel (fptr,  pict_op_index,  pict_label_index) ; 

) 

ts  =  op->GetMETSelection  () ; 
if  (ts  !•  nil)  ( 

int  pict_MET_index  =  picture->Findlndex (ts) ; 

WriteMET (fptr,  pict_op_index,  pict_MET_index) ; 

) 


DFDSplineSelList*  sll  -  op->(5etSelfLoopList  ( ) ; 
for  (sll->First ( ) ;  ! 3ll->AtEnd() ;  sll->Next())  { 

BSplineSelection*  selfloop  -  3ll->GetCur () ->GetSelection  () 

->GetSplineSelection  ( ) ; 

int  pict_sl_index  -  picture->FindIndex (selfloop) ; 

WriteSelf Loop (fptr,  pict_op_index,  pict_sl_index) ; 


) 


ts 

if 


) 


-  sll->GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 

(ts  !=  nil)  ( 

int  pict_sl_label_index  =  picture->FindIndex (ts) ; 
WriteSelf LoopLabel (fptr,  pict_op_index,  pict_sl_index, 

pict_sl_label_index) ; 


for  (el->First 0 ;  !el->AtEnd() ;  el->Next())  ( 
boolean  i3_stream; 

BSplineSelection*  flow  -  el->(^tCur () ->GetSelection () 

->GetEdge () ->GetSplineSelection  () ; 
is_stream  •=  flow->IsAStream()  ; 

int  pict_f low_index  =  picture->FindIndex (flow) ; 
OperatorSelection*  input_op  =  el->GetCur ( ) ->GetSelection () 

->GetToVertex  ( ) ; 

int  pict_f low_iop_index; 
if  (input_op  !=  nil)  ( 

pict_f low_iop_index  « 

picture->FindIndex (input_op->GetEllipseSelection ( ) )  ; 

) 

else  { 

pict_f low_iop_index  =  -1; 

) 

OperatorSelection*  output_op  =  el->GetCur ( ) ->GetSelection ( ) 

->GetFromVertex ( ) ; 

int  pict_f low_oop_index; 
if  (output_op  !'  nil)  ( 

pict_flow_oop_index  = 

picture->FindIndex (output_op->GetEllipseSelection ( ) )  ; 

) 

else  I 

pict_f low_oop_index  “  -1; 

) 
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WriteFlow (fptr,  pict_flow_index,  pict_f low_iop_index, 
pict_f low_oop_index,  is_stream) ; 


tion  ( ) 


) 


) 


ts  «  el->GetCur () ->GetSelection () ->GetEdge ( ) ->GetTextSelection ( ) ; 
if  (ts  !«  nil)  { 

int  pict_flow_label_index  -  picture->FindIndex (ts) ; 
WriteFlowLabel (fptr,  pict__flow_index,  pict_f low_iop_index, 
pict_f low_oop_index,  pict_f low_label_index) ; 

) 

ts  “  el->GetCur 0 ->GetSelection () ->GetEdge ( ) ->GetLatencySelec- 


if 


} 


(ts  !-  nil)  1 

int  pict_f low_lat_index  -  picture->FindIndex (ts) ; 
WriteFlowLatency (fptr,  pict_flow_index,  pict_f low_iop_index, 
pict_f low_oop_index,  pict_f low_lat_index) ; 


//  write  operator  information  to  file  containing  DFD  information  to 
//be  able  to  rebuild  operator  list 

void  Drawing; :WriteOperator (FILE*  fptr,  int  op_index)  ( 
fprintf (fptr,  "%u\n",  OPERATOR); 
fprintf (fptr,  "%d\n",  op_index); 

) 

//  write  operator  label  information  to  file  containing  DFD  information  to 
//be  able  to  rebuild  operator  list 

void  Drawing: : WriteOpLabel (FILE*  fptr,  int  op_index,  int  label_index)  ( 
fprintf (fptr,  "%u\n",  LABEL_OP) ; 
fprintf (fptr,  "%d  %d\n",  op_index,  label_index) ; 

) 


//  write  operator  met  information  to  file  containing  DFD  information  to 
//be  able  to  rebuild  operator  list 

void  Drawing; -.WriteMET (FILE*  fptr,  int  op_index,  int  M£T_index)  { 
fprintf (fptr,  "%u\n",  MET_OP) ; 
fprintf (fptr,  "%d  %d\n",  op_index,  MET_index) ; 

) 

//  write  selfloop  information  to  file  containing  DFD  information  to 
//  be  able  to  rebuild  operator  list 

void  Drawing; :WriteSelfLoop (FILE*  fptr,  int  op_index,  int  sl_index)  ( 
fprintf (fptr,  "%u\n",  SELFLOOP); 
fprintf (fptr,  "%d  %d\n",  op_index,  sl_index) ; 

) 


//  write  selfloop  label  information  to  file  containing  DFD  information  to 
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//be  able  to  rebuild  operator  list 


void  Drawing: : WriteSelfLoopLabel (FILE*  fptr,  int  op_index,  int  sl_index, 

int  sl_label_index)  { 
fprintf (fptr,  "%u\n",  LABEL_SL) ; 

fprintf (fptr,  "%d  %d  %d\n",  op_index,  sl_index,  sl_label_index) ; 

) 


//  write  data  flow  information  to  file  containing  DFD  information  to 
//  be  able  to  rebuild  operator  list 


void  Drawing: iWriteFlow (FILE*  fptr,  int  flow_index,  int  input_op_index, 

int  output_op_index,  boolean  is_stream)  { 
fprintf (fptr,  "%u\n",  DATAFLOW_SPLINE) ; 

fprintf (fptr,  "%d  %d  %d  %u\n",  flow_index,  input_op_index, 
output_op_index,  is_stream) ; 


) 


//  write  data  flow  label  information  to  file  containing  DFD  information  to 
//  be  able  to  rebuild  operator  list 

void  Drawing: :WriteFlowLabel (FILE*  fptr,  int  flow_index,  int  input_op_in- 
dex, 

int  output_op_index,  int  flow_label_index)  { 
fprintf (fptr,  "%u\n",  LABEL_DF); 

fprintf (fptr,  "%d  %d  %d  %d\n",  flow_index,  input_op_index, 
output_op_index,  f low_label_index) ; 

I 

//  write  data  flow  latency  information  to  file  containing  DFD  information 
to 

//  be  able  to  rebuild  operator  list 


void  Drawing: : WriteFlowLatency (FILE 
t__op_index, 

int 

fprintf (fptr,  "%u\n",  LAT_DF) ; 
f printf ( f ptr ,  "%d  %d  %d  %d\n", 
output_op_index, 

) 


fptr,  int  flow_index,  int  inpu- 

output_op_index,  int  flow_lat_index)  { 

flow_index,  input_op_index, 
flow  lat  index) ; 


//  Read  in  file  to  rebuild  operator  list 

void  Drawing :: ReadDFDInfo (FILE*  fptr)  ( 

Classid  cid; 

while  (fscanf (fptr,  "%u",  &cid)  !=  EOF)  { 

//  append  the  proper  element  to  the  operator  list  based  on  its  class  id 

//  read 


EllipseSelection*  op; 
EllipseSelection*  input_op; 
EllipseSelection*  output_op; 
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dex)  ; 


BSplineSelection*  si; 

BSplineSelection*  df; 

TextSelection*  ts; 

int  op_index, label_index,  flow_index,  sl_index,  MET_index; 
int  input_op_index,  output_op_index; 
switch  (cid)  { 
case  OPERATOR: 

fscanf (fptr,  "%d",  4op_index)  ; 

op  »  (EllipseSelection*)  picture->GetSelection (op_index) ; 
op->SetClassld (OPERATOR) ; 

OperatorAppend (op)  ; 
brea)c; 

case  LABEL_OP: 

fscanf (fptr,  "%d  %d",  4op_index,  ilabel_index) ; 
op  “  (EllipseSelection*)  picture->GetSelection (op_index) ; 
ts  »  (TextSelection*)  picture->GetSelection (label_index) ; 
t3->SetClassld(LABEL_0P) ; 

LabelReadAppend (ts,  op); 
break ; 

case  MET_OP: 

fscanf (fptr,  "%d  %d",  4op_index,  4MET_index) ; 
op  “  (EllipseSelection*)  picture->GetSelection (op_index) ; 
ts  =  (TextSelection*)  picture->GetSelection (MET_index) ; 
ts->SetClassld(MET_OP) ; 

METAppend (ts,  op) ; 
break; 

case  SELFLOOP: 

fscanf (fptr,  ”%d  %d",  4op_index,  isl_index} ; 
op  =  (EllipseSelection*)  picture->GetSelection (op_index) ; 
si  =  (BSplineSelection*)  picture->GetSelection (sl_index) ; 
sl->SetClassId (SELFLOOP) ; 

DataFlowSplineAppend (si,  op,  op); 
break; 

case  LABEL_SL: 

fscanf  (fptr,  ''%d  %d  %d",  4op_index,  4sl_index,  4label_index) 
si  =  (BSplineSelection*)  picture->GetSelection (sl_index) ; 
ts  =  (TextSelection*)  picture->Get Selection (label_index) ; 
ts->SetClassId (LABEL_SL) ; 

LabelReadAppend (ts,  si); 
break; 

case  DATAFLOW_SPLINE: 
boolean  is_stream; 

fscanf (fptr,  "%d  %d  %d  %u",  4flow_index,  4input_op_index, 

4output_op_index,  4is_stream) 

input_op  “  nil; 
if  (input_op_index  !=  -1)  ( 
input_op  = 

(EllipseSelection*)  picture->GetSelection (input_op_in 


I 

output_op  =  nil; 
if  (output_op_index  -1)  ( 
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output_op  = 

(EllipseSelection*)  picture->GetSelection (output_op_i 

dex)  ; 

) 

df  =  (BSplineSelecticn* )  pict-re->GetSelection (flow_index) 
df->SetCla3Sld(DATAFT  'iW_SPLINE)  ; 
if  (is_stream) 

df->SetStream()  ; 

DataFlowSplineAppend (df ,  output_op,  input_op) ; 
break; 

case  LABEL_DF: 

fscanf  (fptr,  "%d  '.d  ;d  %d",  Sflow_index,  &input_op_index, 
4output_op_index,  &label_index) ; 
df  =  (BSplineSelection*)  picture->GetSelection (flow_index) 
ts  =  (TextSelection* )  picture->GetSelection (label_index) ; 
ts->SetClas3ld(LABEL_DF) ; 

LabelReadAppend (ts,  df ) ; 
break; 

case  LAT_DF: 

int  lat_index; 

fscanf  (fptr,  ''%d  %d  %d  %d",  4flow_index,  &input_op_index, 
&output_op_index,  &lat_index) ; 
df  =  (BSplineSelection* )  picture->GetSelection (f low_index) 
ts  =  (TextSelection*)  picture->GetSelection  (lat._index)  ; 
ts->SetClassId(LAT_DF) ; 

LatencyAppend (ts,  df ) ; 
break; 

) 

} 

//  if  an  element  does  not  have  a  class  id  now,  assume  it  is  a  comment 


for  (picture->First ( ) ;  ! picture->AtEnd ( ) ;  picture->Next ( ) )  { 
if  (picture->GetCurrent () ->GetClassId ( )  ==  NONE)  ( 
picture->GetCurrent () ->SetClassId (COMMENT) ; 

) 

) 


//  Read  PSDL  back  into  all  operators'  text  buffers 

void  Drawing: : ReadPSDLForAllOperators (char*  dir,  const  char*  prototype 
name)  ( 

for  (ol->First  ( )  ;  !  ol->AtEnd  ( )  ;  ol->Next())  { 

TextSelection*  ts  =  ol->GetCur ( ) ->GetSelection ( ) -> GetTextSelec 

tion  ( )  ; 

if  (ts  !=  nil)  { 
int  len; 

const  char*  tmp_string  -  ts->GetOriginal (len) ; 
char*  op_name  =  new  char[len  +  1] ; 
strncpy (op_name, tmp_string, len) ; 
op_name[len]  =  ' \0' ; 
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char*  fixed_name  •=  RemoveBadChars  (op_name) ; 
char*  filename  -  new  char [strlen (dir)  +  strlen (prototype_name) 

+  strlen (fixed_name) 

+  SPEC_EXT_LEN  +2]; 

strcpy (filename, dir) ; 
strcat (filename, prototype_name) ; 
strcat (filename,  " . ")  ; 
strcat (filename, f ixed_name) ; 
strcat (filename, SPEC_PSDL_EXT) ; 

FILE*  fptr  =  f open (filename, "r") ; 
if  (fptr  !“  nil)  ( 

char*  text  -  ReadBac)cPSDL  (fptr)  ; 
fclose (fptr)  ; 

ol->GetCur () ->GetSelection () ->SetPSDLText (text) ; 

) 

delete  op_name; 
delete  fixed_name; 
delete  filename; 

} 

) 

} 

//  Return  label  of  selected  operator 

char*  Drawing: : OperatorLabells (EllipseSelection*  op)  I 
ol->SetCur (op) ; 
if  (!ol->AtEnd()  )  ( 

TextSelection*  ts  -  ol->GetCur () ->GetSelection () ->GetTextSelec- 

tion  ( )  ; 

if  (ts  !«  nil)  { 
int  len; 

const  char*  temp_string  »  ts->GetOriginal (len) ; 
char*  label  •  new  char[len  +  1]; 
strncpy (label,  temp_string,  len); 
label [len]  -  '\0'; 

char*  fixed_string  «  RemoveBadChars (label)  ; 
delete  label; 
return  f ixed_string; 

) 

) 

return  nil; 

) 

//  Add  type  declaration  to  PSDL  streams  buffer 

void  Drawing: :AddStream ( )  { 
char*  streams; 
if  (streams_txb  ==  nil)  { 

streams  “  new  char [TXTBUFLEN] ; 
strcpy (streams , STREAM_TKN) ; 
strcat (streams, TYPE_DECL_TKN) ; 
strcat (streams, "\n") ; 
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streams_txb  =  new  TextBuffer (streams, strlen (streams) ,  TXTBUFLEN) ; 

) 

else  { 

int  index  =  streams_txb->ForwardSearch (new  Regexp (STREAM_SCH_TKN) , 

0); 

if  (index  >=  0)  { 

streams  -  new  char [strlen (TYPE_DECL_TKN)  +  3); 
strcpy ( streams, TYPE_DECL_TKN) ; 
strcat (streams, ", \n") ; 

streams_txb->Insert (index+1,  streams,  strlen (streams) ) ; 

) 

) 

) 

//  fill  the  stream  PSDL  buffer  and  the  constraints  PSDL  buffer  with 
//  the  part  of  the  given  string  that  relates  to  them 

void  Drawing: ; FillImpBuffers (char*  inp_string)  ( 

TextBuffer*  imp_txb  =  new  TextBuffer (imp_string,  strlen (imp_st ring) , 

TXTBUFLEN) ; 

Char*  start_array_l [)  =  { STREAM_SCH_TKN,  TIMER_SCH_TKN) ; 
int  start_si2e  =  2,  start_index  *  -1; 

char*  end_array_l []  -  { CON_SCH_TKN,  DESC_SCH_TKN,  END_SCH_TKN ) ; 
int  end_size  =  3,  end_index  =  -1; 
int  line_start_index,  line_end_index; 

FindTxbIndices (imp_txb,  start_array_l,  start_size,  start_index, 

end_array_l,  end_size,  end_index) ; 

if  (start_index  >«  0  &&  end_index  >«  0  end_index  >  start_index)  ( 
line_start_index  ■=  imp_txb->BeginningOfLine (start_index) ; 
line_end_index  =  imp_txb->EndOfPreviousLine (end_index) ; 
char*  streams_string  «=  new  char  [TXTBUFLEN]  ; 
strncpy (streams_string, (imp_string+line_start_index) , 

line_end_index-line_start_index+l ) ; 
streams_string[line_end_index-line_start_index+l)  =  '\0'; 
if  (streams_txb  !=  nil)  { 
delete  streams_txb; 

) 

streams_txb  =  new  TextBuffer (streams_string,  strlen  (- 
streams_string) , 

TXTBUFLEN) ; 

) 

Char*  Start_array_2 [ ]  =  ( CON_SCH_TKN,  DESC_SCH_TKN) ; 
start_size  =  2; 
start_index  =  -1; 

char*  end_array_2 [ ]  =  { END_SCH_TKN) ; 
end_size  =  1; 
end_index  =  -1; 

FindTxbIndices (imp_txb,  start_array_2,  start_size,  start_index, 

end_array_2,  end_size,  end_index) ; 
if  (start_index  >=  0  &&  end_index  >=  0)  { 

line_start_index  =  imp_txb->BeginningOfLine (start_index) ; 
line_end_index  *  imp_txb->EndOfPreviousLine (end_index) ; 
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) 


) 


char*  con_string  -  new  char [TXTBUFLEN] ; 
strncpy  (con_string,  (inip_string+line_start_index) , 

line_end_index-line_start_inciex+l )  ; 
con_stringtline_end_index-line_start_index+l]  =  '\0'; 
if  (constraints_txb  !«  nil)  { 
delete  constraints_txb; 

) 

constraints_txb  -  new  TextBuf fer (con_string,  strlen (con_string) , 

TXTBUFLEN) ; 


delete  irrp_txb; 


//  find  the  start  index  and  end  index  for  extracting  a  portion  of  the 
//  given  text  buffer  based  on  the  array  of  starting  strings  and  the  array 
//  of  ending  strings 

void  Drawing: :FindTxbIndices (TextBuf fer*  txb,  char**  start_array, 

int  start_size,  intfi  start_index, 
char**  end_array,  int  end_size, 
int&  end_index)  { 

for  (int  i  -  0;  i  <  start_size  &&  start_index  <  0;  ++i)  ( 

start_index  «  txb->Search (new  Regexp (start_array [i] ) ,  0, 

TXTBUFLEN,  TXTBUFLEN) ; 

} 

if  (start_index  >-  0)  ( 

for  (i  *  0;  i  <  end_size  &&  end_index  <  0;  ++i)  ( 

end_index  -  txb->Search(new  Regexp(end_array[iJ ) ,  0, 

TXTBUFLEN,  TXTBUFLEN) ; 

) 

) 

) 


void  Drawing: :AddLabelToStreams (char*  old_name,  TextSelection*  new_ts)  { 
char*  new_name; 
if  (new_ts  !=  nil)  { 
int  len; 

const  char*  tn^*  “  new_t3->Get0riginal  (len)  ,• 
new_name  =  new  char[len+l]; 
strncpy (new_name, tmp, len) ; 
new_name [len]  =  '\0'; 

) 

else  { 

new_name  *  ID_TKN; 

} 

char*  new_fixed_name  •  RemoveBadChars (new_name) ; 
char*  old_f  ixed_naine  =  RemoveBadChars  (old_name)  ; 

int  end_index  «  streams_txb->Search (new  Regexp (TIMER_SCH_TKN) , 

0,  TXTBUFLEN,  TXTBUFLEN) ; 

if  (end_index  <  0)  ( 

end  index  -  TXTBUFLEN; 
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dex 


} 

int  index  «  stream3_txb->Search (new  Regexp (old_fixed_name) ,  0,  end_in 

f 

end_index) ; 

if  (index  >-  0)  { 

streanis_txb->Delete (index,  strlen (old_fixed_name) ) ; 
3treams_txb->In3ert (index,  new_fixed_naine,  3trlen (new_f ixed_- 

name) ) ; 

) 

) 

Selection*  Drawing: :FindOperator (TextSelection*  lab_t3)  ( 
ol->SetCurWithLabel (lab_t3) ; 
if  ( !ol->AtEnd() )  { 

return  ol->GetCur ( ) ->GetSelection ( ) ->GetEllip3eSelection ( ) ; 

} 

return  lab_t3; 

) 

Selection*  Drawing: : FindLabel (Selection*  ael)  { 
return  ol->FindLabel (ael) ; 

) 


//  Remove  atream  type  declaration  from  PSDL 

void  Drawing: :RemoveStream (TextSelection*  ta)  ( 
char*  id; 
if  (ts  !=  nil)  { 
int  len; 

conat  char*  tmp  «  t3->GetOriginal (len) ; 
id  =  new  char [len  +  1]; 
atrncpy (id, tmp, len) ; 
id [len]  =  ' \0' ; 

) 

elae  { 

id  =  ID_TKN; 

) 

char*  fixed_id  =  RemoveBadChara (id)  ; 

int  3tart_index  =  3tream3_txb->Search (new  Regexp (STREAM_SCH_TKN) ,  0 

TXTBUFLEN,  TXTBUFLEN) ; 

if  (3tart_index  >=  0)  ( 

int  end_index  =  3tream3_txb->Search (new  Regexp (TIMER_SCH_TKN) , 

0,  TXTBUFLEN,  TXTBUFLEN); 

if  (end_index  <  0)  { 

end_index  “  TXTBUFLEN; 

) 

if  (end_index  >  3tart_index)  ( 

int  index  =  3tream3_txb->Search (new  Regexp (fixed_id) ,  start_in 

dex, 

end_index  -  start_index  +  1, 
end  index) ; 
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} 


if  (index  >-  0)  ( 

int  end_line_index  “  streanis_txb->EndOf  Line  (index)  ; 
int  start_line_index  »  3treams_txb->Beginning0f Line (index) 
streams_txb->Delete (3tart_line_index, 

end  line  index  -  start_line_index  +  1) ; 


) 


) 

//  remove  all  of  the  self  loops  and  data  flows  associated  with 
//  an  operator 


void  Drawing: : RemoveAssociatedOb jects (SelectionList*  sl_2, 

EllipseSelection*  op)  { 
SelectionList*  sel_list  ••  new  SelectionList; 
ol->SetCur (op) ; 

DFDSplineSelList*  sll  -  ol->GetCur () ->GetSelection ( ) 

-XSetSelfLoopList () ; 

for  (sll->First () ;  ! sll->AtEnd() ;  sll->Next())  ( 

if  (!sl_2->Find(sll->(5etCur()->GetSelection()  -> 

GetSplineSelection ( ) )  )  ( 

sel_list->Append (new  SelectionNode (sll->GetCur ( ) 

-XJetSelection ( ) ->GetSplineSelection ( ) ) ) ; 

) 

} 

DFDSplineSelList*  isl  -  ol->GetCur () ->GetSelection ( ) 

->GetInputDFSplineList  0 ; 
for  (isl->First () ;  ! isl->AtEnd() ;  isl->Next())  { 

if  (!sl_2->Find(isl->GetCur()->GetSelection()-> 

GetSplineSelection  0 ) )  { 

sel_list->Append (new  SelectionNode (isl~>GetCur ( ) 

->GetSelection  0 ->GetSplineSelection () ) ) ; 

) 

} 

DFDSplineSelList*  osl  =  ol->GetCur () ->GetSelection () 

->GetOutputDFSplineList () ; 
for  (o3l->First 0 ;  !osl->AtEnd() ;  osl->Next())  ( 

if  ( ! sl_2->Find(osl->GetCur () ->GetSelection  0 -> 

GetSplineSelection ( ) ) )  { 

sel_list->Append (new  SelectionNode (osl->GetCur ( ) 

->GetSelection () ->GetSplineSelection ( ) ) ) ; 

) 

) 

RemoveSplines (sel_list) ; 


//  Remove  a  selection  list  filled  with  the  associated  splines  of  an 
//  operator 

void  Drawing: : RemoveSplines (SelectionList*  sel_list)  ( 

for  (sel_list->First 0 ;  ! sel_list->AtEnd () ;  sel_list->Next ( ) )  ( 

Selection*  s  »  sel  list->GetCur ( ) ->GetSelection ( ) ; 
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TextSelection*  tsl  =  nil; 

TextSelection*  ts2  ■=  nil; 

Classid  cid  -  s->GetCla33ld () ; 

3witch  (cid)  { 
ca3e  DATAFLOW_SPLINE : 

t3l  -  ol->G€tDFLabel ( (BSplineSelection*)  3) ; 
t32  -  ol->C3etDFLatency  ( (BSplineSelection* )  s); 
if  (((BSplineSelection*)  3)  ->l3AStream() )  { 

RemoveStream(t3l) ; 

} 

brea)c; 

ca3e  SELFLOOP: 

t3l  “  ol->GetSelfLoopLabel ( (BSplineSelection* )  3) 
brea)c; 
default : 
brea)c; 

) 

ol->Remove (3) ; 
if  (t3l  !-  nil)  { 

picture->Remove (tsl) ; 

1 

if  (ts2  !«  nil)  ( 

picture->Remove  (ts2) ; 

) 

picture->Remove (3) ; 

) 

) 
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//  file  edge.h 

//  description:  Class  description  of  Edge  class. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  this  header  file  was  made  specifically  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  Change  made:  October  1,  1990 
*/ 

#ifndef  edge_h 
♦define  edge_h 

class  DFDSplineSelection; 
class  OperatorSelection; 

/* 

*  definition  of  class  storing  the  actual  data  flow  and  the  labels 

*  associated  with  its  input  and  output  operators 
*! 


class  Edge  { 
public: 

Edge (DFDSplineSelection*)  ; 

void  SetFromVertex (OperatorSelection*  o)  {  fromv  =  o;  } 
void  SetToVertex  (OperatorSelection*  i)  (  tov  ■=  i;  ) 
OperatorSelection*  GetFromVertex ( )  (  return  fromv;  } 
OperatorSelection*  GetToVertex ()  (  return  tov;  ) 
char*  GetEdgeLabel ( )  ; 
char*  GetEdgeLatency ( )  ; 

DFDSplineSelection*  GetEdgeO  {  return  flow;  ) 
char*  GetFromVertexLabel ()  ; 
char*  GetToVertexLabel () ; 

protected: 

DFDSplineSelection*  flow; 

OperatorSelection*  fromv; 

OperatorSelection*  tov; 

); 


♦endif 
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//  file  edge.c 

//  description:  Implementation  of  Edge  class. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  this  file  was  made  specifically  for  the  graphic  editor. 

★ 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  Change  made:  October  1,  1990 
*/ 


♦include  "dfd_defs.h" 

♦include  "edge.h" 

♦include  "istring.h" 

♦include  "sldfdspline.h" 

♦include  "sloperator .h" 

♦include  "sltext.h" 

♦include  <InterViews/Std/string.h> 

/* 

*  Inplementation  of  class  storing  the  actual  data  flow  and  the  labels 

*  associated  with  its  input  and  output  operators. 

*! 


Edge :: Edge (DFDSplineSelection*  f)  { 
flow  ••  f; 
fromv  -  nil; 
tov  -  nil; 

) 


char*  Edge: :GetEdgeLabel 0  { 

TextSelection*  ts  •=  f low->GetTextSelection ( )  ; 
char*  result; 
if  (ts  !”  nil)  { 
int  len; 

char*  tmp  =  ts->GetOriginal (len) ; 
result  =  new  char[len+l]; 
strncpy (result, tmp, len) ; 
result [len]  =  '\0'; 

) 

else  { 

result  =  ID_TKN; 

1 

return  RemoveBadChars (result) ; 


) 


char*  Edge : : GetEdgeLatency ( )  { 

TextSelection*  ts  =  f low->GetLatencySelection ( ) ; 
char*  result  =  nil; 
if  (ts  !=  nil)  { 
int  len; 

char*  tmp  =  ts->GetOriginal (len) ; 
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result  “  new  char[len+l]; 
strncpy (result, tmp, len) ; 
result [len]  «  '\0'; 

) 

return  result; 


char*  Edge: rGetFromVertexLabel 0  { 
char*  result; 
if  (fromv  !-  nil)  { 

TextSelection*  ts  -  f romv->GetTextSelection ( ) 
if  (ts  !■  nil)  { 
int  len; 

char*  tn^  -  ts->GetOriginal (len) ; 
result  ••  new  char[len+l]; 
strncpy (result, tmp, len) ; 
result [len]  -  '\0'; 

) 

else  ( 

result  -  ID_TKN; 

) 

) 

else  ( 

result  -  EXT_TKN; 

) 

return  result; 

) 

char*  Edge:  :(3etToVertexLabel  0  { 
char*  result; 
if  (tov  !“  nil)  {  ' 

TextSelection*  ts  «  tov->GetTextSelection ( )  ; 
if  (ts  !-  nil)  { 
int  len; 

char*  tit?)  -  ts->GetOriginal  (len)  ; 
result  -  new  char[len+l); 
strncpy (result, tmp, len) ; 
result [len]  »  '\0'; 

) 

else  ( 

result  -  ID_TKN; 

) 

) 

else  { 

result  -  EXT_TKN; 

) 

return  result; 

) 


214 


//  file  edgelist.h 

II  description:  Class  description  of  EdgeList  class. 

!*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  This  header  file  was  created  specifically  for  the  graphic  editor. 

*  This  header  file  was  created  specifically  for  the  graphic  editor. 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  1,  1990 
*/ 

#ifndef  edgelist_h 
♦define  edgelist_h 

♦include  "list.h" 

//  declare  inserted  classes 

class  Edge; 

class  DFDSplineSelection; 

//  This  class  defines  a  node  to  be  contained  in  the  edge  list 

class  EdgeNode  :  public  BaseNode  { 
public : 

EdgeNode (Edge*  e)  {  edge  -  e;  ) 

boolean  SameValueAs (void*  e)  (  return  edge  ==  e;  ) 

Edge*  GetSelection ()  {  return  edge;  ) 

protected: 

Edge*  edge;  //  points  to  an  edge  in  the  graph 

); 

//  This  class  defines  a  list  of  edges  with  their  corresponding  input 
//  and  output  operators 

class  EdgeList  :  public  BaseList  { 
public : 

EdgeNode*  First (); 

EdgeNode*  LastO; 

EdgeNode*  Prev ( ) ; 

EdgeNode*  Next  () ; 

EdgeNode*  GetCurO; 
boolean  AtEndO; 

EdgeNode*  Index (int) ; 

boolean  FindSpline (DFDSplineSelection* ) ; 

); 


inline  EdgeNode*  EdgeList : :First ()  { 

return  (EdgeNode*)  BaseList :: First ()  ; 

) 
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inline  EdgeNode*  EdgeList: :Last ()  { 

return  (EdgeNode*)  BaseList: :Last () ; 

) 

inline  EdgeNode*  EdgeList: :Prev()  ( 

return  (EdgeNode*)  BaseList: :Prev() ; 

) 

inline  EdgeNode*  EdgeList: : Next ()  { 

return  (EdgeNode*)  BaseList : :Next () ; 

) 

inline  EdgeNode*  EdgeList: :GetCur()  { 

return  (EdgeNode*)  BaseList : :GetCur () ; 

) 

inline  EdgeNode*  EdgeList :: Index (int  index)  ( 
return  (EdgeNode* )  BaseList : : Index (index) ; 

) 

inline  boolean  EdgeList : :AtEnd ( )  { 
return  BaseList : :AtEnd()  ; 

} 

#endif 


//  file  edgelist.c 

//  description:  Implementation  of  EdgeList  class. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  This  file  was  made  specifically  for  the  graphic  editor. 

« 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  2,  1990 

*  ! 

/*  In^lementation  of  the  list  of  edges  class.  This  class  is  used  to 
*  write  the  list  of  edges  to  the  graph  file 
*/ 


♦include  "edge.h" 

♦include  "edgelist.h" 

♦include  "sldfdspline . h" 

♦include  <InterViews/defs .h> 

boolean  EdgeList : :FindSpline (DFDSplineSelection*  dss)  { 
for  (First  ();  !AtEnd();  NextO)  ( 

if  (GetCur ( ) ->GetSelection () ->GetEdge ( )  ==  dss)  { 
return  true; 

) 

} 

return  false; 

I 
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//  file  editor. h 

//  description:  Class  description  of  Editor  class. 

//  $Header:  editor. h,v  1.12  89/10/09  14:47:57  linton  Exp  $ 

//  declares  class  Editor. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  declaration  of  function  ResetMessage. 

*  Add  class  variable  inter  to  store  idraw' s  interactor  in  order  to 

*  change  cursor  when  needed. 

*  Add  declaration  of  MakeFilename  and  HandleMET. 

*  Remove  declaration  of  unneeded  functions . 

*  Change  neune  of  HandleAnnotate  to  HandleSpecify  to  be  consistent. 

*  Add  declaration  of  HandleLatency . 

it 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  21,  1990 
*i 

#ifndef  editor_h 
♦define  editor_h 

♦include  <InterViews/def a . h> 

//  Declare  inserted  types. 

class  Cha.igeNode; 
class  Chooser; 
class  Confirmer; 
class  Drawing; 
class  DrawingView; 
class  Event; 
class  Selecter; 
class  History; 
class  IBrush; 
class  IColor; 
class  IFont; 
class  IPattern; 
class  Interactor; 
class  Messager; 
class  Namer; 
class  Painter; 
class  RubberEllipse; 
class  RubberLine; 
class  RubberRect; 
class  State; 

//An  Editor  lets  the  user  perform  a  drawing  or  editing  operation  on 
//a  Drawing. 

class  Editor  { 
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public : 


Editor (Interactor*) ; 
“Editor  0 ; 


void  SetDrawing (Drawing* ) ; 
void  SetDrawingView (DrawingView*) ; 
void  SetState (State* ) ; 
void  SetDirectory (char*) ; 


void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
//  void 
void 
void 


HandleSelect (Events) ; 
HandleMcve (Events) ; 
HandleScale (Events) ; 
HandleModify (Events) ; 
HandleMagnify (Events) ; 
HandleSpecify (F /entS) ; 
Handiest reams (Events)  ; 
HandleConstraints (Events)  ; 
HandleDecompose (Events)  ; 
HandleText (Events) ; 
HandleLabel (Events)  ; 
HandleMET (Events )  ; 
HandleLatency (Events )  ; 
HandleLine (Events )  ; 
HandleBSpline (Events)  ; 
HandleEllipse (Events ) ; 


/* 


*****  Start  of  Commented  Out  Code  ***** 
void  HandleStretch (Events) ; 
void  HandleRotate (Events) ; 
void  HandleMultiLine (Events) ; 
void  HandleRect (Events)  ; 
void  HandlePolygon (Events ) ; 
void  HandleClosedBSpline (Events ) ; 

*****  End  of  Commented  Out  Code  *****  */ 


void  New ( ) ; 

void  Revert (); 

void  Open (const  char*); 

void  Open ( ) ; 

void  SaveO; 

void  SaveAs ( ) ; 

void  Print  ( ) ; 

void  Quit (Events ) ; 

void  Chec)cpoint  ( )  ; 

void  UndoO; 
void  Redo ( ) ; 
void  Cut ( ) ; 
void  Copy ( ) ; 
void  Paste  ( ) ; 
void  Duplicate  0 ; 
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void  Delete {); 
void  SelectAllO; 

/*  *****  start  of  Commented  Out  Code  ***** 
void  FlipHorizontal () ; 
void  FlipVertical ()  ; 
void  _90Clockwi3e  0  ; 
void  _90CounterCW ( ) ; 
void  PreciseMove 0 ; 
void  PreciseScale 0  ; 
void  PreciseRotate 0  ; 

void  Group { ) ; 
void  Ungroup (); 
void  BringToFront  0 ; 
void  SendToBack {) ; 
void  NumberOf Graphics  0  ; 

*****  End  of  Commented  Out  Code  *****  */ 

void  SetBrush (IBrush*) ; 
void  SetFgColor (IColor*) ; 
void  SetRgColor (IColor* ) ; 
void  SetFont (IFont*) ; 
void  SetPattern (IPattern*) ; 

void  AlignLeftSides 0 ; 
void  AlignRightSides 0 ; 
void  AlignBottoms  0 ; 
void  AlignTops () ; 
void  AlignVertCenters 0 ; 
void  AlignHorizCenters ( ) ; 
void  AlignCenters () ; 
void  AlignLeftToRight ( ) ; 
void  AlignRightToLeft () ; 
void  AlignBottomToTop ( ) ; 
void  AlignTopToBottomO  ; 
void  AlignToGrid ( ) ; 

void  Reduce ( ) ; 

void  Enlarge (); 

void  ReduceToFit ( ) ; 

void  NormalSize ( ) ; 

void  CenterPage ( ) ; 

void  RedrawPage ( ) ; 

void  GriddingOnOf f {) ; 

void  GridVisibleInvisible ( ) ; 

void  Gridspacing {) ; 

void  Orientation  0 ; 

void  ShowVersion ( ) ; 

void  ResetMessage (const  char*); 

protected: 
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const  char*  MakeFilename (const  char*); 
const  char*  MakeSpecFilename (const  char*); 
void  Do (ChangeNode*) ; 

void  InputVertices (Events,  Coord*s,  Coord*&,  intS); 

RubberLine*  NewRubberLineOrAxis (Events) ; 

RubberEllipse*  NewRubberEllipseOrCircle (Events)  ; 

RubberRect*  NewRubberRectOrSquare (Events) ; 

boolean  Of ferToSave () ; 

void  Reset (const  char*,  const  char*); 

History*  history;  //  carries  out  and  logs  changes  made 

//  to  drawing 

Messager*  numberofdialog;  II  displays  how  many  graphics  the 

//  drawing  has 

Selecter*  opendialog;  //  pronpts  for  name  of  a  irawing  to  open 

Confirmer*  overwritedialog;  //  confirms  whether  to  over.-’--  e  a  file 

Namer*  precmovedialog;  //  prompts  for  X  and  Y  movement  in  points 

Namer*  precrotdialog;  //  prompts  for  rotation  in  degrees 

Namer*  precscaledialog;  //  prompts  for  X  and  Y  scaling 

Namer*  printdialog;  //  prompts  for  print  command 

Messager*  readonlydialog;  //  tells  user  drawing  is  readonly 
Confirmer*  revertdialog;  //  confirms  whether  to  revert  from  a  file 

Selecter*  saveasdialog;  //  prompts  for  name  to  save  drawing  as 

Confirmer*  savecurdialog;  //  confirms  whether  to  save  current  drawing 
Namer*  spacingdialog;  //  prompts  for  grid  spacing  in  points 

Messager*  versiondialog;  //  displays  idraw's  version  level 

//  and  author 

Chooser*  decomposedialog;  //  displays  decomposition  choices 
Messager*  nolabeldialog;  //  tells  user  that  cannot  decon¥>ose  because 

/ /  operator  chosen  has  no  label 

Drawing*  drawing;  //  performs  operations  on  drawing 

DrawingView*  drawingview;  //  displays  drawing 

State*  state;  //  stores  Graphic  and  nonGraphic  attributes 

char*  dir;  //  directory  where  prototypes  are  stored 

Interactor*  inter;  //  store  the  interactor  (idraw)  for  editor 

//  in  order  to  change  cursor  for  Annotate 

); 

#endif 
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//  file  editor.c 

//  description:  Implementation  of  Editor  class. 


//  $Header:  editor. c,v  1.22  89/10/25  18:08:41  interran  Exp  $ 

//  implements  class  Editor. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Use  a  selecter  instead  of  finder  to  display  all  prototypes  available  for 

*  editing. 

*  Add  new  variable  to  store  name  of  directory  of  prototypes. 

*  Remove  the  functions  HandleStretch,  HandleRotate,  HandleMultiLine, 

*  HandleRect,  HandlePolygon,  HandleCloseBSpline,  FlipHorizontal, 

*  FlipVertical,  _90Cloc)tWise,  _90CounterCW,  PreciseMove,  PreciseScale, 

*  PreciseRotate,  Group,  Ungroup,  BringToFront,  SendToBack,  and 

*  NxjmberOf Graphics  because  their  corresponding  commands  were  removed. 

*  Changed  name  of  function  HandleReshape  to  HandleModify  to  be  consistent 

*  with  changing  the  name  of  the  tool  from  Reshape  to  Modify. 

*  Added  code  for  drawing  line  to  find  out  which  operators  the  line  is 

*  attached  to.  We  need  that  information  for  the  data  flow  diagram. 

*  Added  code  for  drawing  spline  to  find  out  which  operators  the  spline  is 

*  attached  to  or  if  it  is  a  self  loop.  We  need  that  information  for  the 

*  data  flow  diagram. 

*  Commented  out  code  for  the  former  version  of  HandleEllipse  so  that  it 

*  may  be  used  later  if  needed. 

*  Created  new  HandleEllipse  to  draw  an  ellipse  of  fixed  radius. 

*  Throughout  all  of  the  functions,  the  file  name  of  the  drawing  is  derived 

*  from  the  prototype  name  concatenated  with  ".graph".  Idraw  used  file 

*  names  given  explicitly  by  the  user. 

*  Add  function  MakeFilenaune  to  construct  the  file  name  of  the  drawing  from 

*  the  prototype  name. 

*  Add  function  ResetMessage  to  change  the  message  block  in  the  editor. 

*  Add  function  HandleMET  to  add  the  maximum  execution  time  of  an 

*  operator. 

*  Update  the  PSDL  specification  for  the  drawing  when  saving  or  changing 

*  the  prototype  name. 

*  Comment  out  all  references  to  lines  because  splines  will  be  used  for 

*  lines  now. 

*  Change  name  of  HandleAnnotate  to  HandleSpecify  to  be  consistent  with 

*  what  user  sees. 

*  Add  function  HandleLatency  to  add  latency  of  data  flow  to  drawing. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  Change  made:  October  3,  1990 
*/ 


# include 
♦include 
♦include 
♦include 
♦include 
♦include 


"dfdclasses . h" 
"dfd_defs.h" 
"dialogbox . h" 
"drawing. h" 
"drawingview . h" 
"editor .h" 


222 


tinclude 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"history .h" 

"idraw.h" 

"istring.h" 

"listchange . h" 
"listselectn.h" 

"rubbands.h" 

"selecter .h" 

"selection. h" 

"slellipses.h" 

"sllines . h" 

"slpolygons . h" 

"slsplines.h" 

"sltext . h" 

"state. h" 

"textedit.h" 

"version. h" 
<InterViews/cursor . h> 
<InterView3 / event . h> 
<InterViews/transf ormer . h> 
<InterViews/Graphic/util .h> 
<sys/param.h> 

<bstring. h> 

<lnterViewa/Std/stdio. h> 
<string. h> 


//  design  database  function  used  to  find  all  prototypes  in  directory 


void  find_prototype_names (char**,  char*,  const  char*); 
//  Editor  creates  its  history  and  dialog  boxes. 


Editor: ; Editor  (Interactor*  i)  { 
history  =  new  History (i); 
numberofdialog  =  new  Messager(i); 

opendialog  =  new  Selecter(i,  "Select  prototype  to  edit:".  Center); 
overwritedialog=  new  Confirmer(i,  "already  exists;  overwrite?"); 
precmovedialog  =new  Namer (i, "Enter  X  and  X  movement  in  printer's 
points: ") ; 

precrotdialog  =  new  Namer(i,  "Enter  rotation  in  degrees:"); 
precscaledialog  =  new  Namer (i,  "Enter  X  and  Y  scaling:"); 
printdialog  =  new  Namer (i,  "Enter  print  command:"); 
readonlydialog  =  new  Messager(i,  "Drawing  is  readonly."); 
revertdialog  “  new  Confirmerd,  "Really  revert  to  original?"); 
saveasdialog  *  new  Selecter (i,  "Select  prototype  to  save:".  Center) 
savecurdialog  =  new  Confirmerd,  "Save  current  drawing?"); 
spacingdialog  =  new  Namer (i,  "Enter  grid  spacing  in  printer's 
points : ") ; 

versiondialog  =  new  Messager(i,  version); 

decomposedialog  ■=  new  Chooser (i,  "Choose  decomposition  type:", 

"Graphic  Editor",  "  Ada  " 

"  Search  "); 

nolabeldialog  • 
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new  Messager(i,  "Operator  has  no  label,  cannot  deconpose . " ) 

drawing  -  nil; 
drawingview  -  nil; 
state  “  nil; 
inter  -  i; 

) 

//  -Editor  frees  storage  allocated  for  its  history  and  dialog  boxes. 

Editor :: -Editor  ()  { 

delete  history; 
delete  nuinberofdialog; 
delete  opendialog; 
delete  overwritedialog; 
delete  precmovedialog; 
delete  precrotdialog; 
delete  precscaledialog; 
delete  printdialog; 
delete  readonlydialog; 
delete  revertdialog; 
delete  saveasdialog; 
delete  savecurdialog; 
delete  spacingdialog; 
delete  versiondialog; 

) 

//  Define  access  functions  to  set  members'  values.  Only  Idraw  sets 

//  their  values. 

void  Editor :: SetDrawing  (Drawing*  d)  { 
drawing  -  d; 

) 

void  Editor :: SetDrawingView  (Drawingview*  dv)  ( 
drawingview  -  dv; 

} 

void  Editor :: SetState  (State*  s)  { 
state  -  s; 

) 

//  set  the  directory  of  prototytpes  to  the  given  character  string 

void  Editor :: SetDirectory (char*  d)  { 
dir  -  new  char  [MAXPATHLEN  +  1]; 
strcpy (dir, d) ; 

) 

//  HandleSelect  lets  the  user  pick  a  Selection  if  one's  under  the 

//  mouse,  otherwise  it  lets  the  user  manipulate  a  rubber  rectangle  to 

//  enclose  the  Selection  he  wants  to  pick.  HandleSelect  clears  all 
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//  previous  Selections  unless  the  user  holds  down  the  shift  key  to 
//  extend  the  Selections  being  made. 

void  Editor : :HandleSelect  (Event*  e)  { 

Selection*  pick  drawing->PickSelectionIntersecting(e.x,  e.y); 
if  (!e. shift)  {  //  replacing  previous  Selections 

drawingview->EraseHandles ()  ; 
if  (pick  !=  nil)  ( 

drawing->Select (pick) ; 

)  else  ( 

RubberRect*  rubberrect  - 
new  RubberRect (nil,  nil,  e.x,  e.y,  e.x,  e.y); 

drawingview->Manipulate (e,  rubberrect,  UpEvent,  false); 

Coord  1,  b,  r,  t; 

rubberrect->GetCurrent (1,  b,  r,  t) ; 
delete  rubberrect; 

SelectionList*  picklist-  drawing->PickSelectionsWithin (1,  b,  r,  t) 
drawing->Select (picklist) ; 
delete  picklist; 

) 

)  else  {  //  extending  Selections 

if  (pick  !=  nil)  ( 

drawingview->ErasePickedHandles (pick) ; 
drawing->Extend (pick)  ; 

)  else  ( 

RubberRect*  rubberrect  - 
new  RubberRect (nil,  nil,  e.x,  e.y,  e.x,  e.y); 

drawingview->Manipulate (e,  rubberrect,  UpEvent,  false); 

Coord  1,  b,  r,  t; 

rubberrect->GetCurrent (1,  b,  r,  t); 
delete  rubberrect; 

SelectionList*  picklist-  drawing->Pick‘^''lccticr.sWithin  (1,  b,  r,  t) 
drawingview->ErasePickedHandles (picklist) ; 
drawing->Extend (picklist) ; 
delete  picklist; 

) 

) 

drawingview->DrawHandles  0  ; 

) 

//  HandleMove  lets  the  user  manipulate  a  sliding  rectangle  enclosing 
//  the  Selections  and  moves  them  the  same  way  when  the  user  releases 
//  the  button. 

void  Editor :: HandleMove  (Event*  e)  { 

Selection*  pick  -  drawing->PickSelectionIntersecting (e . x,  e.y) ; 
if  (pick  !=  nil)  ( 

drawingview->EraseUngraspedHandles (pick) ; 
drawing->Grasp (pick) ; 
drawingview->DrawHandles () ; 
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Coord  1,  b,  r,  t; 
drawing->GetBox (1,  b,  r,  t); 
state->Constrain (e.x,  e.y); 

SlidingRect*  slidingrect  •• 

new  SlidingRect (nil,  nil,  1,  b,  r,  t,  e.x,  e.y); 
drawingview->Manipulate (e,  slidingrect,  UpEvent) ; 

Coord  nl,  nb,  nr,  nt; 

slidingrect->GetCurrent (nl,  nb,  nr,  nt) ; 
delete  slidingrect; 

if  (nl  !-  1  I  I  nb  !-  b)  { 
float  xO,  yO,  xl,  yl; 

Transformer  t; 
drawing->GetPictureTT (t) ; 

t . InvTransform (float (1) ,  f loat (b) ,  xO,  yO); 
t . InvTransf orm(float (nl) ,  f loat (nb) ,  xl,  yl); 

Do (new  MoveChange (drawing,  drawingview,  xl  -  xO,  yl  -  yO) ) 

) 

) 

) 

//  HandleScale  lets  the  user  manipulate  a  scaling  rectangle  enclosing 
//  the  pic)ced  Selection  and  scales  the  Selections  to  the  new  scale 
//  when  the  user  releases  the  button. 

void  Editor: : HandleScale  (Events  e)  ( 

Selection*  pic)c  ■  drawing->Pic)cSelectionIntersecting(e.x,  e.y); 
if  (pic)c  !-  nil)  { 

drawingview->EraseUngraspedHandles  (pic)c) ; 
drowing->Grasp  (pic)c) ; 
drawingview->DrawHandles  0  ; 

float  1,  r,  t; 
pic)c->Cctdounds  (1,  b,  r,  t)  ; 
float  cx,  cy; 
pic)t->GetCenter  (cx,  cy)  ; 

ScalingRect*  scalingrect  - 

new  ScalingRect (nil,  nil,  round(l),  round(b),  round(r),  round(t) 
r ound ( cx ) ,  round ( cy ) ) ; 

drawingview->Manipulate (e,  scalingrect,  UpEvent); 
float  scale  -  scalingrect->CurrentScaling () ; 
delete  scalingrect; 

if  (scale  !-  0)  { 

Do (new  ScaleChange (drawing,  drawingview,  scale,  scale)); 

) 

) 


//  The  following  is  not  needed  for  a  data  flow  diagram 
/*  *****  Start  of  Commented  Out  Code  ***** 
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//  HandleStretch  lets  the  user  manipulate  a  stretching  rectangle 
//  enclosing  the  picked  Selection  and  stretches  the  Selections  the 
//  same  way  when  the  user  releases  the  button. 

void  Editor :: HandleStretch  (Events  e)  { 

Selection*  pick  »  drawing->PickSelectionIntersecting (e . x,  e.v); 
if  (pick  !-  nil)  { 

drawingview->EraseUngraspedHandles (pick) ; 
drawing->Grasp (pick) ; 
drawingview->DrawHandles () ; 

float  1,  b,  r,  t; 
pick->G€tBounds (1,  b,  r,  t) ; 

IStretchingRect*  istretchingrect  -  new 

IStretchingRect (nil,  nil,  round(l),  round(b),  round(r),  round(t)) 
drawingview->Manipulate (e,  istretchingrect,  UpEvent) ; 
float  stretch  -  istretchingrect->CurrentStretching ( ) ; 

Alignment  side  -  istretchingrect->CurrentSide (drawing->GetLandscape ( ) ) 
delete  istretchingrect; 

if  (stretch  !=  0)  ( 

Do (new  StretchChange (drawing,  drawingview,  stretch,  side) ) ; 

) 

) 


//  HandleRotate  lets  the  user  manipulate  a  rotating  rectangle 
//  enclosing  the  picked  Selection  and  rotates  the  Selections  the  same 
//  way  when  the  user  releases  the  button. 

void  Editor: : HandleRotate  (Events  e)  ( 

Selection*  pick  =  drawing->PickSelectionIntersecting (e .x,  e.y) ; 
if  (pick  !-  nil)  { 

drawingview->EraseUngraspedHandles (pick) ; 
drawing->Grasp (pick) ; 
drawingview->DrawHandles ()  ; 

Coord  1,  b,  r,  t; 
pick->GetBox (1,  b,  r,  t) ; 
float  cx,  cy; 
pick->GetCenter (cx,  cy) ; 
state->Constrain (e.x,  e.y); 

RotatingRect*  rotatingrect  - 

new  RotatingRect (nil,  nil,  1,  b,  r,  t,  round (cx),  round (cy), 
e.x,  e.y); 

drawingview->Manipulate  (e,  rotatingrect,  UpEvent); 
float  angle  *  rotatingrect->CurrentAngle ( ) ; 
delete  rotatingrect; 

if  (angle  !«  0)  ( 

Do (new  RotateChange (drawing,  drawingview,  angle)); 
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) 

) 

) 

*****  End  of  Commented  Out  Code  *****  */ 

II  HandleModify  lets  the  user  modify  an  already  existing  Selection 
//  and  replaces  the  Selection  with  the  modified  Selection.  Text 
//  Selections  "modify"  themselves  using  different  code  below. 

void  Editor: : HandleModify  (Events  e)  { 

Selection*  pick  -  drawing->PickSelectionShapedBy (e.x,  e.y) ; 
if  (pick  !•»  nil)  ( 
drawingview->EraaeHandlea ( )  ; 
drawing->Select (pick)  ; 
drawingview->DrawHandles ()  ; 

Selection*  modifiedpick  -  nil; 

Classld  cid  -  pick->GetClassId() ; 

if  (cid  ~  LABEL_OP  I  I  cid  —  LABEL_DF  1  |  cid  “  COMMENT  I  I 
cid  —  LAT_DF  I  I  cid  —  MET_OP  I  I  cid  --  LABEL_SL)  { 
printf("in  modify,  is  text\n"); 
printf("cid  is  %u\n",  cid) ; 
int  len; 

const  char*  text  -  ( (TextSelection*)  pick) ->GetOriginal (len) ; 

TextEdit*  textedit  -  new  TextEdit (text,  len) ; 

drawingview->EraseHandles ()  ; 

drawingview->Edit (e,  textedit,  pick) ; 

text  ■  textedit->GetText (len) ; 

printf ("modified  text  is  %s\n",  text); 

modifiedpick  -  new  TextSelection (cid,  text,  len,  pick); 
delete  textedit; 

)  else  { 

printf ("in  modify,  is  not  textXn"); 

Rubberband*  shape  -  pick->CreateShape (e.x,  e.y); 
drawingview->Manipulate (e,  shape,  UpEvent); 
modifiedpick  -  pick->GetReshapedCopy ( ) ; 

) 

if  (modifiedpick  !-  nil)  { 

printf ("before  ReplaceChangeXn") ; 

Do (new  ReplaceChange (drawing,  drawingview,  pick,  modifiedpick)); 
printf ("after  ReplaceChangeXn") ; 
drawingview->Draw ( ) ; 

) 

} 


ii  KanuleMagnify  lets  the  usei  manipulate  a  rubber  rectangle  and 
//  expands  the  given  area  to  fill  the  view. 

void  Editor: :HandleMagnify  (Events  e)  ( 

RubberRect*  rubberrect  *  NewRubberRectOrSquare (e) ; 
drawingview->Manipulate (e,  rubberrect,  UpEvent,  false); 

Coord  fx,  fy; 
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rubberrect->GetCurrent (fx,  fy,  e.x,  e.y); 
delete  rubberrect; 

drawingview->Magnify (fx,  fy,  e.x,  e.y); 

1 

//  HandleSpecify  lets  the  user  select  an  operator  and  a  syntax  directed 
//  editor  will  open  with  the  PSDL  that  represents  that  operator 

void  Editor: : HandleSpecify (Event&  e)  ( 
boolean  have_operator; 

Selection*  pic)t  -  drawing->PickSelectionIntersecting (e.x,  e.y); 
drawingview->EraseHandle3 () ; 

if  (pick  !=  nil  &&  pick->GetClassld ( )  -=  LABEL_OP)  ( 

pick  =  drawing->FindOperator ( (TextSelection* )  pick) ; 

) 

if  (pick  !=  nil  &&  pick->GetClassId()  “  OPERATOR)  ( 

//  construct  PSDL  of  an  operator's  specification 

drawing->Select (pick) ; 
drawingview->DrawHandles () ; 

//  write  operator's  psdl  to  a  scratch  file 

drawing->WritePSDLForOperator ( (EllipseSelection* )  pick) ; 
have_operator  »=  true; 

) 

else  ( 

//  collecting  PSDL  for  the  whole  drawing 

drawing->WritePSDLForDrawing  ( ) ; 
have_operator  =  false; 

) 

/ /  open  a  text  editor  with  the  psdl  file 

int  code; 
long  status; 

char*  filename  =  MakeTmpFileName (PSDL_FILE)  ; 
inter->SetCursor (hourglass) ; 
if  (forkO  «=  0)  { 

code  «  execlp ("xterm",  "xterm",  "-T",  "specify",  "-g", 

"+500+550",  "+sb",  "-e",  SPECIFICATION_SDE,  filename,  0) ; 
exit (code) ; 

) 

wait (istatus) ; 

inter->SetCursor (def aultCursor) ; 
state->SetModif Status (Modified) ; 
state->UpdateViews () ; 
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if  (have_operator)  { 

FILE*  fptr  ••  fopen  (filename,  "r") ; 
if  (fptr  !-  nil)  { 

drawing->ReaciPSDLForOperator (fptr,  (EllipseSelection*)  pick) 
fclose (fptr) ; 

) 

} 

else 

drawing->ReadPSDLForDrawing () ; 
delete  filename; 

) 

II  HandleStreams  opens  an  editor  to  allow  the  user  to  add  PSDL  streams 

void  Editor :: HandleStreams (Events  e)  { 
drawing->WriteStreama  () ; 
int  code; 
long  status; 

char*  filename  ■  MakeTn^FileName (STREAMS_FILE) ; 
inter->SetCursor (hourglass) ; 
if  (forkO  —  0)  { 

code  “  execlp("xterm",  "xterm",  "-T",  "streams",  "-g",  "+500+550" 
"+sb",  "-e",  STREAMS_SDE,  filename,  0) ; 

exit (code) ; 

) 

wait (Sstatus) ; 
delete  filename; 

inter->SetCuraor (def aultCursor) ; 
state->SetModif Status (Modified) ; 
state->UpdateViews ( ) ; 
drawing->ReadStreams () ; 

) 

//  HandleConstraints  opens  an  editor  to  allow  the  user  to  add  PSDL  con¬ 
straints 

void  Editor :: HandleConstraints ^Events  e)  ( 
drawing->WriteConstraints  0 ; 
int  code; 
long  status; 

char*  filename  *  MakeTmpFileName (CONSTRAINTS_FILE) ; 
inter->SetCursor (hourglass) ; 
if  (forkO  ==  0)  { 

code  =  execlp ("xterm",  "xterm",  "-T",  "constraints",  "-g", 
"+500+550", 

"+sb",  "-e",  CONSTRAINTS_SDE,  filename,  0) ; 

exit (code) ; 

) 

wait (Sstatus) ; 
delete  filename; 

inter->SetCursor (defaultCursor) ; 
state->SetModif Status (Modified)  ; 
state->UpdateViews () ; 
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drawing->ReadConstraints () ; 

} 

II  HandleDecompose  gives  the  user  of  decon^osition  types  and  then 
//  processes  the  choice 

void  Editor HandleDeconpose (Events  e)  ( 

Selection*  pick  «  drawing->PickSelectionIntersecting(e.x,  e.y); 
drawingview->EraseHandles ( ) ; 

if  (pick  !=  nil  &&  pick->GetClassId()  «=  LABEL_OP)  ( 

pick  =  drawing->FindOperator ( (TextSelection*)  pick) ; 

} 

if  (pick  !=  nil  &&  pick->C3etClassld()  “  OPERATOR)  ( 
drawing->Select (pick) ; 
drawingview->DrawHandles () ; 

char*  label  -  drawing->OperatorLabells ( (EllipseSelection*)  pick) 
printf ("label  is  %s\n",  label) ; 
if  (label  ~  nil)  { 

nolabeldialog->Display () ; 

) 

else  { 

char*  fixed_label  -  RemoveBadChars (label) ; 
char  result  =  decoinposedialog->Choose  ( )  ; 

Save ( ) ; 

const  char*  prototype_name  =  state->GetDrawingNaine ( ) ; 
printf ("prot  name  is  %s\n",  prototype_name) ; 
switch  (result)  { 
case  'f': 


// 


prot_name) 


first  button  pushed,  decompose  with  graphic  editor 

char*  new_prot_name  =  new  char [strlen (prototype_name) 

+  strlen (fixed_label)  +  2] ; 
strcpy (new_prot_name,prototype_name) ; 
strcat (new_prot_name, " . ") ; 
strcat (new_prot_name, fixed_label)  ; 
printf ("new  prot  name  is  %s\n",  new_prot_name) ; 

int  code; 
long  status; 

inter->SetCursor (hourglass)  ; 
if  (forkO  *=  0)  { 

code  “  execlp ("graphic_editor",  "graphic_editor", 
"-d",  dir,  "-p",  new_prot_name, 
"-geometry",  "+450-200",  0); 

exit (code) ; 

) 

wait (Sstatus) ; 

char*  s_filename  =  new  char [strlen (dir)  +  strlen (new_- 

+  SPEC_EXT_LEN  +  1 ] ; 

Strcpy (s_filename, dir) ; 
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strcat  (3_filename,new_prot_name)  ; 
strcat (3_filename, SPEC_PSDL_EXT) ; 

FILE*  3ptr  -  fopen (3_filename,  "r") ; 
if  (3ptr  !-  nil)  { 

drawing->ReadPSDLForOperator (3ptr, 

(Ellip3eSelection* )  pick) 

) 

delete  3_filename; 
inter->SetCur3or (defaultCureor) ; 
delete  new_prot_naine; 
break; 
caae  ' s'  : 
caae  ' t'  : 


// 

// 

// 


name) 


) 


) 


aecond  button  choaen,  write  component  directly  in  Ada 
third  button  chosen,  search  for  reusable  components  to 
match  operator's  specification 

char*  filename  “  new  char [strlen (dir)  +  strlen (prototype_ 

+  strlen (fixed_label)  +  IMP_EXT_LEN  +  2] 
St rcpy (filename, dir) ; 
strcat (filename, prototype_name) ; 
strcat (filename, " . ") ; 
strcat (filename, fixed_label) ; 
strcat (filename, 1MP_PSDL_EXT) ; 

FILE*  fptr  »  fopen (filename,  "w"); 
fprintf (fptr,  "%s%3\n",  IMP_ADA_TKN,  label); 
fprintf (fptr,  "%s",  END_TKN); 
f close (fptr) ; 
delete  filename; 
break; 
default: 

break; 

} 


/ /  HandleText  lets  the  user  type  some  text  and  creates  a  new 
//  TextSelection  when  the  user  finishes  typing  the  text.  It  must 
/ /  clear  the  selection  list  because  DrawingView  will  redraw  the 
//  handles  obscured  by  the  TextEdit  if  the  list's  not  empty. 

void  Editor: : HandleText  (Events  e)  ( 
drawingview->Era3eHandles  0  ; 
drawing->Clear ( )  ; 

TextEdit*  textedit  -  new  TextEdit; 
drawingview->Edit (e,  textedit); 
int  len; 

const  char*  text  =  textedit->GetText (len)  ; 
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if  (len  >  0)  { 

cirawing->Select (new  TextSelection (text,  len,  state->GetrextGS () ) ) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 

) 

delete  textedit; 

) 

//  HandleLabel  lets  the  user  pick  a  Selection  and  adds  text  in  that  se¬ 
lection. 

//  The  text  will  then  be  centered  on  the  selection. 

void  Editor :: HandleLabel  (Event*  e)  ( 

Selection*  pick  =  drawing->PickSelectionIntersecting (e .x,  e.y); 
drawingview->EraseHandle3 ()  ; 
if  (pick  !=  nil)  ( 

Classid  cid_pick  =  pick->GetClassId() ; 
drawing->Select (pick)  ; 
drawingview->DrawHandles  0  ; 

//  can  only  add  label  to  one  selection  at  a  time 

if  (drawing->GetNumberOfGraphics ( )  ==  1)  ( 

TexcEdit*  textedit  «=  new  TextEdit; 
drav Lngview->Edit (e,  textedit); 
int  Itn; 

const  char*  text  =  textedit->GetText (len) r 
if  (len  >  0)  { 

//  determine  the  type  of  label  that  we  are  using 

Classid  cid_text; 
if  (cid  pick  ==  OPE.^TOR)  { 
cid_text  =  LABEL_OP; 

) 

else  { 

if  (cid_pick  ==  DATAFLOW_SPLINE 
//  II  cid_pick  ==  UATAFLOW_ LINE 

)  { 

cid_text  =  LABEL_DF; 

1 

else  ( 

if  (cid_pick  ==  SELFLOOP)  { 
cid_text  =  LABEL_SI.; 

} 

else  { 

cid_text  =  COMMENT; 

) 

) 

1 

TextSelection*  ts  =  new  TextSelection (cid_text,  text,  len 

state->GetTexrGS  () ) ; 
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//  add  label  to  operator  list 

drawing->LabelAppend (ts,  pick) ; 
drawing->Select (ts) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 
drawing->Clear ( ) ; 

II  center  label  to  selection 

SelectionList*  si  -  new  SelectionList; 
sl->Append(new  SelectionNode (pick) ) ; 
sl->Append(new  SelectionNode (ts) ) ; 
drawing->Select (si) ; 

AlignCenters  0 ; 
drawingview->EraseHandles {) ; 
drawing->Clear ( ) ; 

1 

delete  textedit; 

} 

) 

} 

//  HandleMET  letes  the  user  select  an  operator,  add  the  maximum  execution 
//  time  associated  with  that  operator.  This  MET  is  place  on  top  of  the 
//  operator. 

void  Editor: : HandleMET  (Eventi  e)  ( 

Selection*  pick  -  drawing->PickSelectionIntersecting(e.x,  e.y); 
drawingview->EraseHandles () ; 
if  (pick  !=  nil)  ( 

if  (pick->GetClassId()  »■=  LABEL_OP)  ( 

pick  -  drawing->FindOperator ( (TextSelection*)  pick) ; 

) 

//  can  only  add  the  MET  to  an  operator 

if  (pick->GetClassld ( )  ■=  OPERATOR)  ( 
drawing->Select (pick)  ; 
drawingview->DrawHandles () ; 

TextEdit*  textedit  =  new  TextEdit; 
drawingview->Edit (e,  textedit); 
int  len; 

const  char*  text  =  textedit->GetText (len) ; 
if  (len  >0)  { 

TextSelection*  ts  •  new  TextSelection (MET_OP,  text,  len, 

state->GetTextGS  0 ) ; 

//  add  MET  to  operator  list 

drawing->METAppend(t3,  (EllipseSelection* )  pick) ; 
drawing->Select  (ts) ; 

Do (new  AddChange (drawing,  drawingview)); 
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cirawing->Clear  ( )  ; 


//  place  MET  on  top  of  operator 

SelectionList*  si  “  new  SelectionList; 
sl->Append(new  SelectionNode (pick) ) ; 
sl->Append(new  SelectionNode (ts) ) ; 
drawing->Select  (si) ; 

AlignCenters  0 ; 

AlignBottomToTop ( ) ; 
drawingview->EraseHandles () ; 
drawing->Clear ( ) ; 

) 

delete  textedit; 

) 

} 

) 

//  HandleLatency  letes  the  user  select  a  data  flow,  add  the  latency 
//  associated  with  that  data  flow.  This  latency  is  placed  on  top  of  the 
//  data  flow. 

void  Editor :: HandleLatency  (Events  e)  { 

Selection*  pick  «  drawing->PickSelectionIntersecting (e.x,  e.y); 
drawingview->EraseHandles () ; 
if  (pick  !=  nil)  { 

//  can  only  add  the  MET  to  an  operator 

if  (pick->GetClassId()  — »  DATAFLOW_SPLINE)  ( 

Selection*  oldpick  •=  pick; 
pick  “  drawing->FindLabel (pick) ; 
drawing->Select (oldpick) ; 
drawingview->DrawHandles () ; 

TextEdit*  textedit  =  new  TextEdit; 
drawingview->Edit (e,  textedit); 
int  len; 

const  char*  text  =  textedit->C5etText  (len) ; 
if  (len  >  0)  { 

TextSelection*  ts  =  new  TextSelection (LAT_DF,  text,  len, 

state->GetTextGS () ) ; 

II  add  latency  to  operator  list 

drawing->LatencyAppend(ts,  (BSplineSelection* )  oldpick); 
drawing->Select (ts) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 
drawing->Clear () ; 

//  place  Latency  on  top  of  data  flow 

SelectionList*  si  «=  new  SelectionList; 
sl->Append (new  SelectionNode (pick) ) ; 
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sl->Append(new  SelectionNode its) } ; 
drawing->Select (si) ; 

AlignCenters () ; 

AlignBottomToTop ( ) ; 
drawingview->EraseHandles () ; 
drawing->Clear () ; 

) 

delete  textedit; 

) 

} 

) 

/ /  Use  splines  to  draw  lines  also 
/*  *****  start  of  Commented  Out  Code  ***** 

//  HandleLine  lets  the  user  manipulate  a  rubber  line  and  creates 
//  a  LineSelection  when  the  user  releases  the  button. 

void  Editor: : HandleLine  (Events  e)  ( 
drawingview->Era3eHandles () ; 
state->Constrain (e.x,  e.y); 

RubberLine*  rubberline  «  NewRubberLineOrAxis (e)  ; 
drawingview->Manipulate (e,  rubberline,  UpEvent); 

Coord  xO,  yO,  xl,  yl; 

rubberline->GetCurrent (xO,  yO,  xl,  yl); 
delete  rubberline; 

if  (xO  !-  xl  II  yO  !-  yl)  { 

//  determine  which  operator  the  line  is  attached  to  and  recort¥>ute 

//  the  line's  endpoint  to  be  the  intersection  of  the  operator  and  the 

//  line 

EllipseSelection*  esO; 

EllipseSelection*  esl; 

esO  *  drawing->SetEndptsInOperator (xO,  yO,  xl,  yl); 
esl  “  drawing->SetEndptsInOperator (xl,  yl,  xO,  yO); 

if  (esO  !“  nil  II  esl  !•=  nil)  ( 

/ /  use  the  arrowhead  pattern  when  drawing  the  line 

IPattern*  teir^j  «  state->GetPattern(); 
state->SetPattern  (state->(3etArrowPattern  ( ) ) ; 

LineSelection*  Is  - 

new  LineSelection (xO,  yO,  xl,  yl,  state->GetGraphicGS () ) ; 
drawing->DataFlowLineAppend (Is,  esO,  esl); 
drawing->Select (Is) ; 

//  reset  the  pattern  back  to  the  original  pattern,  not  the  arrowhead 

//  pattern 


236 


state->SetPattern  (terr^) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 
drawingview->EraseHandle3 () ; 

) 

) 

) 

//  The  following  is  not  needed  for  a  data  flow  diagram 

/ /  HandleMultiLine  lets  the  user  draw  a  series  of  connected  lines  and 
//  creates  a  MultiLineSelection  when  the  user  presses  the  middle 
//  button. 

void  Editor :: HandleMultiLine  (Events  e)  ( 

Coord*  x; 

Coord*  y; 
int  n; 

drawingview->EraseHandles ()  ; 

InputVertices (e,  x,  y,  n) ; 

if  (n  !=  2  II  xCO]  !=  x[l]  ||  y[01  !=  y[l])  I 
drawing->Select ( 

new  MultiLineSelection (x,  y,  n,  state->GetGraphicGS ( ) ) 

)  ; 

Do (new  AddChange (drawing,  drawingview) ) ; 

} 

) 

*****  End  of  Commented  Out  Code  *****  */ 

/ /  HandleBSpline  lets  the  user  draw  a  series  of  connected  lines  and 
//  creates  a  BSplineSelection  when  the  user  presses  the  middle  button. 

void  Editor: : HandleBSpline  (Events  e)  { 

Coord*  x; 

Coord*  y; 
int  n; 

drawingview->EraseHandles () ; 

InputVertices (e,  x,  y,  n) ; 

if  (n  !=  2  II  x[0]  !=  x[l]  ||  ytO]  !=  y[l])  { 

//  determine  which  operators  the  spline  is  attached  to  and  recompute 

//  the  spline's  endpoints  to  be  the  intersection  of  the  operator  and 

//  the  spline 

EllipseSelection*  esO; 

EllipseSelection*  esn; 

esO  «  drawing->SetEndptsInOperator (x [0] ,  y[0],  x[l],  y[l]); 
esn  »  drawing->SetEndptsInOperator (X [n-1 ] ,  y[n-l],  x[n-2],  y[n-2]); 
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if  (esO  !“  nil  | |  esn  !-  nil)  { 

//  determine  type  of  spline 

boolean  is_stream  -  false; 

Classid  classid; 
if  (esO  —  esn)  { 

classid  -  SELFLOOP; 

) 

else  { 

classid  -  DATAFL0W_SPL1NE; 
if  (esO  !“  nil  &&  esn  !-  nil)  { 
is_stream  -  true; 
drawing->AddStream() ; 

) 

) 

//  use  the  arrowhead's  pattern  to  draw  the  line 

IPattern*  temp  -  state->GetPattern ()  ; 
state->SetPattern (state->GetArrowPattern ( ) ) ; 
BSplineSelection*  ss  = 

new  BSplineSelection (classid,  x,  y,  n,  state->GetGraph- 

icGSO  )  ; 

if  (is_stream) 

ss->SetStream( ) ; 

//  append  the  spline  to  the  operator  list 

drawing->DataFlowSplineAppend(ss,  esO,  esn); 
drawing->Select (ss) ; 

//  reset  the  pattern  to  be  the  original  pattern 

state->SetPattern (temp) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 
drawingview->Era3eHandles () ; 

) 

) 

) 

//  This  is  the  old  HandleEllipse  that  used  a  rubber  ellipse  to  draw  it 
/*  *****  Start  of  Commented  Out  Code  ***** 

//  HandleEllipse  lets  the  user  manipulate  a  rubber  ellipse  and  creates 
//an  EllipseSelection  when  the  user  releases  the  button. 

void  Editor: : HandleEllipse  (Events  e)  { 
drawingview->EraseHandles ()  ; 
state->Constrain (e .X,  e.y); 

RubberEllipse*  rubberellipse  «  NewRubberEllipseOrCircle (e) ; 
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drawingview->Manipulate (e,  rubberellipse,  UpEvent) ; 

Coord  cx,  cy,  rx,  ry; 
int  xr,  yr; 

rubberellipse->GetCurrent <cx,  cy,  rx,  ry) ; 
rubberellip3e->CurrentRadii (xr,  yr) ; 
delete  rubberellipse; 

if  (xr  >  0  I  I  yr  >  0)  ( 
drawing->Select ( 

new  EllipseSelection (cx,  cy,  xr,  yr,  state->GetGraphsGS ( ) ) 

) ; 

Do (new  AddChange (drawing,  drawingview) ) ; 

) 

) 

*****  End  of  Commented  Out  Code  *****  */ 

//  HandleEllipse  draws  a  circle  with  a  radius  of  35  pixels  at  the  position 
//of  the  user's  mouse  when  he  clic)cs  the  left  mouse  button 

void  Editor :: HandleEllipse  (Events  e)  { 
drawingview->EraseHandles () ; 
state->Constrain (e,x,  e.y); 

EllipseSelection*  es  « 

new  EllipseSelection (e.x,  e.y,  OperatorRadius,  OperatorRadius, 

state->GetGraphicGS  () ) ; 

drawing->Select (es) ; 
drawing->OperatorAppend(es) ; 

Do (new  AddChange (drawing,  drawingview)); 


/ /  The  following  is  not  needed  for  a  data  flow  diagram 
/*  *****  Start  of  Commented  Out  Code  ***** 

//  HandleRect  lets  the  user  manipulate  a  rubber  rectangle  and  creates 
//a  RectSelection  when  the  user  releases  the  button. 

void  Editor :: HandleRect  (Events  e)  ( 
drawingview->Era3eHandles () ; 
state->Constrain (e.x,  e.y); 

RubberRect*  rubberrect  -  NewRubberRectOrSquare (e) ; 
drawingview->Manipulate (e,  rubberrect,  UpEvent); 

Coord  1,  b,  r,  t; 

rubberrect->GetCurrent (1,  b,  r,  t); 
delete  rubberrect; 

if  (1  !=  r  I  I  b  !-  t)  { 

drawing->Select (new  RectSelection (1,  b,  r,  t,  state->GetGraphicGS ( ) ) ) ; 
Do (new  AddChange (drawing,  drawingview) ) ; 

) 
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/ /  HandlePolygon  lets  the  user  draw  a  series  of  connected  lines  and 
//  creates  a  PolygonSelection  when  the  user  presses  the  middle  button. 

void  Editor : ’.HandlePolygon  (Events  e)  ( 

Coord*  x; 

Coord*  y; 
int  n; 

drawingview->Era3eHandlea () ; 

InputVertices (e,  x,  y,  n) ; 

if  (n  !-  2  II  x[0]  !-  x[l]  ||  y[0]  !-  y[l))  { 
drawing-->Select (new  PolygonSelection (x,  y,  n,  state->GetGraphicGS ( ) ) ) 
Do (new  AddChange (drawing,  drawingview) ) ; 

) 


/ /  HandleClosedBSpline  lets  the  user  draw  a  series  of  connected  lines 
//  and  creates  a  ClosedBSplineSelection  when  the  user  presses  the 
//  middle  button. 

void  Editor :: HandleClosedBSpline  (Events  e)  ( 

Coord*  x; 

Coord*  y; 
int  n; 

drawingview->EraseHandles () ; 

InputVertices (e,  x,  y,  n) / 

if  (n  !-  2  11  xIO]  !-  x[l]  1|  y[0]  !-  y[l])  { 
drawing->Select ( 

new  ClosedBSplineSelection (x,  y,  n,  state->GetGraphicGS ( ) ) 

)  ; 

Do (new  AddChange (drawing,  drawingview)); 

} 

) 

*****  End  of  Commented  Out  Code  *****  */ 

//  New  offers  to  write  an  unsaved  drawing  and  creates  a  new  empty 
//  drawing  if  the  save  succeeds  or  the  user  refuses  the  offer. 

void  Editor: :New  ()  ( 

boolean  successful  -  Of ferToSave () ; 
if  (successful)  ( 

drawing->ClearPicture ( ) ; 

Reset (nil, nil) ; 

) 

} 

//  Revert  rereads  the  drawing  from  its  file.  It  as)cs  for  confirmation 
//  before  reverting  an  unsaved  drawing. 
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void  Editor :  .-Revert  ()  { 

const  char*  prototype_name  -  3tate->GetDrawingNaine ( ) ; 
if  (prototype_name  !-  nil)  { 

char  response  -  revertdialog->Confinn()  ; 
if  (response  “  'y')  { 

const  char*  filename  -  Ma)ceFilename  (prototype_name)  ; 
boolean  successful  -  drawing->ReadPicture (filename,  state); 
if  (successful)  ( 

drawing->ReadDFDFiles (dir,  prototype_name) ; 

Reset (filename, prototype_name) ; 

) 

else  { 

savecurdialog-> 

Setwarning ("couldn' t  revert!  (file  nonexistent?)"); 

Open ( ) ; 


//  Open  reads  a  drawing  from  a  file  whose  filename  is  created  by  the  given 
//  prototype  name.  If  it  fails,  it  calls  the  interactive  Open  to  as)c  the 
//  user  to  type  another  name. 

void  Editor; :Open  (const  char*  prototype_name)  ( 
const  char*  filename; 

filename  -  Ma)ceFilename  (prototype_name)  ; 
drawing->ReadPicture (filename,  state) ; 
drawing->ReadDFDFiles (dir,  prototype_name) ; 

const  char*  spec_f  ilename  -  Ma)ceSpecFilename  (prototype_name)  ; 
if  (! drawing->Exists (spec_f ilename) )  { 

drawing->UpdatePSDLSpec (prototype_name) ; 

} 

Reset (filename, prototype_name) ; 

) 

//  Open  prompts  for  a  prototype  name.  It  then  appends  ".graph"  to  that 

//  name  to  make  the  proper  file  name  and  reads  a  drawing  from  that  file. 

//  It  offers  to  save  an  unsaved  drawing  and  it  keeps  trying  to  read  a 

//  drawing  until  it  succeeds  or  the  user  cancels  the  command. 

void  Editor: : Open  ()  { 

boolean  successful  •  Of ferToSave () ; 
if  (successful)  { 

const  char*  prototype_name  ••  nil; 

const  char*  filename; 

char*  prototype_array [MAXPROTOTYPES)  ; 

find__prototype_names (prototype_array,  dir,  "edit"); 

opendialog->Insert (prototype_array) ; 

for  (;;)  ( 

prototype_name  -  opendialog->Select ( )  ; 
if  (prototype_name  nil) 
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break; 
else  ( 

filename  -  MakeFilename (prototype_name) ; 
boolean  successful  ■  drawing->ReadPicture (filename,  state) 
cirawing->ReadDFDFile3 (dir,  prototype_name) ; 
const  char*  spec_filename  - 

MakeSpecFilename (prototype_name) ; 
if  ( ! drawing->Exists (3pec_f ilename) )  ( 

drawing->UpdatePSDI.Spec  (prototype_name)  ; 

) 

Reset (filename, prototype_name) ; 
break ; 


//  Save  writes  the  drawing  to  the  file  it  was  read  from  unless  there's 
//  no  file  or  it  can't  write  the  drawing  to  that  file,  in  which  case 
//  it  hands  the  job  off  to  SaveAs. 

void  Editor:: Save  ()  { 

const  char*  prototype_name  «  state->GetDiawingName ( ) ; 
if  (prototype_name  —  nil)  ( 

SaveAs ( ) ; 

) 

else  if  (state->GetModifStatus 0  «  Readonly)  ( 

saveasdialog->SetErrorTitle ("Can' t  save  in  read-only  file!"); 
SaveAs  0 ; 

else  ( 

const  char*  filename  «  MakeFilename (prototype_name) ; 
boolean  successful  =  drawing->WritePicture (filename,  state); 
if  (successful)  ( 

state->SetModif Status (Unmodified)  ; 
state->UpdateViews () ; 

drawing->WriteDFDFile3 (dir, prototype_name) ; 

) 

else  { 

saveasdialog->SetErrorTitle ("Couldn't  save ! ") ; 

SaveAs ( ) ; 

} 

) 

) 

//  SaveAs  prompts  for  a  prototype  name.  It  then  uses  that  name  to 
//  determine  the  file  name  and  writes  the  drawing  to  that  file. 

//It  asks  for  confirmation  before  overwriting  an  already  existing 
//  file  and  it  keeps  trying  to  write  the  drawing  until  it  succeeds  or 
//  the  user  cancels  the  command. 

void  Editor :: SaveAs  ()  { 
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const  char*  prototype_name  =  nil; 
char*  prototype_array [MAXPROTOTYPES] ; 
for  (;;)  { 

find_prototype_naines  (prototype_array,  dir,  "edit"); 
3aveasdialog->In3ert (prototype_array) ; 
prototype_naine  -  savea3dialog->Select  ( ) ; 
if  (prototype_name  —  nil) 
brea]c; 
else  { 

const  char*  filename  «  MaJceFilename  (prototype_name)  ; 
if  (drawing->Exi3ts (fileneune) )  { 

overwritedialog->SetWarning("a  drawing  named  ",  proto- 

type_name ) ; 

char  response  ■  overwritedialog->Confirm( ) ; 
if  (response  !-  'y') 
brea)c; 

) 

boolean  successful  «  drawing->WritePicture (filename,  state) 
if  (successful)  { 

state->SetDrawingName (prototype_name) ; 
state->SetModif Status (Unmodified)  ; 
state->UpdateViews () ; 

drawing->UpdatePSDLSpec (prototype_name) ; 
drawing->WriteDFDFile3 (dir,prototype_name) ; 
brea)c; 

) 

else 

savea3dialog->SetErrorTitle ("Couldn't  save!") ; 

) 

) 

saveasdialog->SetErrorTitle ("") ; 

) 

//  Print  prompts  for  a  print  command  and  writes  the  drawing  through  a 
//  pipe  to  that  command's  standard  input.  It  keeps  trying  to  print 
/ /  the  drawing  until  it  succeeds  or  the  user  cancels  the  command. 

void  Editor: : Print  ()  { 

if  (state->GetModif Status ()  -«  Modified)  ( 
savecurdialog->SetWarning ("a  broken  pipe  signal  won't  be  caught"); 

) 

boolean  successful  “  Of ferToSave () ; 
if  (successful)  { 
char*  cmd  «=  nil; 
for  (;;)  ( 

delete  cmd; 

cmd  -  printdialog->Edit (nil) ; 
if  (cmd  =«  nil)  { 
break; 

) 

boolean  successful  -  drawing->PrintPicture (cmd,  state); 
if  (successful)  { 
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cmd)  ; 


break; 

}  else  { 

printdialog->SetWarning( "couldn't  execute  ", 

) 

) 

delete  cmd; 

) 

) 

//  Skew  comments /code  ratio  to  work  around  cpp  bug 


//  Quit  offers  to  save  an  unsaved  drawing  and  tells  Idraw  to  c[uit 
//  running  if  the  save  succeeds  or  the  user  refuses  the  offer. 

void  Editor: :Quit  (Eventi  e)  { 

boolean  successful  -  OfferToSave () ; 
if  (successful)  ( 
e. target  ■  nil; 

) 

) 

//  Checkpoint  writes  an  unsaved  drawing  to  a  tenporary  filename.  The 
//  program  currently  calls  Checkpoint  only  when  an  X  error  occurs. 

void  Editor :: Checkpoint  ()  ( 

if  (state->G€tModif Status  0  •*-  Modified)  { 
char*  path  -  terqpnam("  . /",  "idraw"); 

boolean  successful  *  drawing->WritePicture (path,  state); 
if  (successful)  ( 

fprintf (stderr,  "saved  drawing  as  \"%s\"\n",  path) ; 

)  else  ( 

fprintf (stderr,  "sorry,  couldn't  save  drawing  as  \"%s\"\n",  path) 

) 

delete  path; 

}  else  { 

fprintf (stderr,  "drawing  was  unmodified,  didn't  save  it\n"); 

} 

} 

//  Undo  undoes  the  last  change  made  to  the  drawing.  Undo  does  nothing 
//  if  all  stored  changes  have  been  undone. 

void  Editor: :Undo  ()  { 
history->Undo ( ) ; 

} 

//  Redo  redoes  the  last  undone  change  made  to  the  drawing,  i.e.,  it 
//  undoes  an  Undo.  Redo  does  nothing  if  it  follows  a  Do. 

void  Editor: : Redo  ()  { 
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history->Redo () ; 

) 

//  Cut  removes  the  Selections  and  writes  them  to  the  clipboard  file, 

//  overwriting  whatever  was  there  previously. 

void  Editor:: Cut  ()  { 

Do (new  CutChange (drawing,  drawingview) ) ; 

) 

//  Copy  copies  the  Selections  and  writes  them  to  the  clipboard  file, 

//  overwriting  whatever  was  there  previously. 

void  Editor:: Copy  ()  ( 

Do (new  CopyChange (drawing,  drawingview)); 

) 

//  Paste  reads  new  Selections  from  the  clipboard  file  and  appends  them 
//to  the  drawing. 

void  Editor: :Paste  ()  { 

Do (new  PasteChange (drawing,  drawingview,  state)); 

) 

/ /  Duplicate  duplicates  the  Selections  and  appends  the  new  Selections 
//  to  the  drawing. 

void  Editor :: Duplicate  ()  ( 

Do (new  DuplicateChange (drawing,  drawingview)); 

) 

//  Delete  deletes  all  of  the  Selections. 

void  Editor: : Delete  ()  { 

Do (new  DeleteChange (drawing,  drawingview)); 

} 

//  SelectAll  selects  all  of  the  Selections  in  the  drawing. 

void  Editor :: SelectAll  ()  { 
drawing->SelectAll () ; 
drawingview->DrawHandles ()  ; 

) 

//  The  following  was  removed  because  it  is  not  needed  for  a  Data  Flow 
//  diagram 

/*  *****  start  of  Commented  Out  Code  ***** 

//  FlipHorizontal  flips  the  Selections  horizontally  by  scaling  them  by 
//  -1  along  the  x  axis  about  their  centers. 
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void  Editor : :FlipHorizontal  ()  { 

Do (new  ScaleChange (drawing,  drawingview,  -1,  1)); 

) 

//  FlipVertical  flips  the  Selections  vertically  by  scaling  them  by  -1 
//  along  the  y  axis  about  their  centers. 

void  Editor :: FlipVertical  ()  { 

Do (new  ScaleChange (drawing,  drawingview,  1,  -1)); 

} 

//  __90Clockwise  rotates  the  Selections  90  degrees  clockwise  about 
//  their  centers. 

void  Editor : :_90Clockwise  ()  { 

Do (new  RotateChange (drawing,  drawingview,  -90.)); 

) 

//  _90CounterCW  rotates  the  Selections  90  degrees  counter-clockwise 
//  about  their  centers. 

void  Editor: :_90Counter(W  ()  { 

Do (new  RotateChange (drawing,  drawingview,  90.)); 

) 

//  PreciseMove  prompts  the  user  for  the  x  and  y  movement  and  moves  the 
//  Selections  that  much  from  their  original  places  in  units  of  points. 
//  If  we  didn't  use  points  as  units,  the  user  wouldn't  be  able  to  move 
//a  Selection  one  grid  spacing  by  typing  "8  0". 

void  Editor: '.PreciseMove  ()  { 
char*  movement  -  nil; 
for  (;;)  { 
delete  movement; 

movement  =  precmovedialog->Edit (nil) ; 
if  (movement  ==  nil)  ( 
break; 

} 

float  xdisp,  ydisp; 

if  (sscanf (movement,  "%f  %f",  ixdisp,  &ydisp)  ==  2)  { 
if  (xdisp  !=  0  II  ydisp  !*  0)  { 
xdisp  *=  points; 
ydisp  *-  points; 

Do (new  MoveChange (drawing,  drawingview,  xdisp,  ydisp)); 

) 

break; 

)  else  { 

precmovedialog->SetWarning ("couldn' t  parse  ",  movement); 

) 

} 

delete  movement; 

) 
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//  PreciseScale  prompts  the  user  for  the  x  and  y  scales  and  scales  the 
//  Selections  that  much  about  their  centers. 

void  Editor :: PreciseScale  ()  { 
char*  scaling  -  nil, 
for  (;;)  { 
delete  scaling; 

scaling  “  precscaledialog->Edit (nil)  ; 
if  (scaling  —  nil)  { 
break; 

) 

float  xscale,  yscale; 

if  (sscanf (scaling,  "%f  %f",  &xscale,  iyscale)  2)  { 
if  (xscale  1-0  &&  yscale  !-  0)  { 

Do (new  ScaleChange (drawing,  drawingview,  xscale,  yscale)); 

} 

break; 

}  else  { 

precscaledialog->SetWarning ("couldn' t  parse  ",  scaling); 

) 

} 

delete  scaling; 

) 

//  PreciseRotate  prompts  the  user  for  the  angle  and  rotates  the 
//  Selections  that  many  degrees  about  their  centers. 

void  Editor: : PreciseRotate  0  { 

Char*  rotation  <■  nil; 
for  (;;)  { 
delete  rotation; 

rotation  =  prccrotdialog->Edit (nil)  ; 
if  (rotation  =«=  nil)  { 
break; 

) 

float  angle; 

if  (sscanf  (rotation,  Sangle)  ==  1)  ( 

if  (angle  !=  0)  ( 

Do (new  RotateChange (drawing,  drawingview,  angle)); 

) 

break; 

)  else  { 

precrotdialog->SetWarning ("couldn' t  parse  ",  rotation); 

} 

) 

delete  rotation; 

I 

//  Group  groups  the  Selections  together, 
void  Editor: : Group  ()  ( 
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Do (new  GroupChange (drawing,  drawingview) ) ; 

1 

//  Ungroup  ungroups  each  PictSelection  into  its  component  Selections. 

void  Editor; : Ungroup  ()  ( 

Do (new  UngroupChange (drawing,  drawingview) ) ; 

) 

//  BringToFront  brings  the  Selections  to  the  front  of  the  drawing. 

void  Editor: : BringToFront  ()  { 

Do (new  BringToFrontChange (drawing,  drawingview)); 

} 

//  SendToBac)t  sends  the  Selections  to  the  back  of  the  drawing. 

void  Editor SendToBack  ()  ( 

Do (new  SendToBackChange (drawing,  drawingview)); 

) 

/ /  NumberOfGraphics  counts  the  number  of  graphics  in  the  drawing  and 
//  displays  the  count. 

void  Editor NumberOfGraphics  ()  { 

int  num  =  drawing->GetNumberOfGtaphics ( ) ; 
if  (niom  —  1)  { 

numberofdialog->SetMessage ("The  selections  contain  1  graphic."); 

)  else  ( 
char  buf [50] ; 

sprintf(buf,  "The  selections  contain  %d  graphics.",  num) ; 
numberofdialog->SetMe3sage (buf) ; 

) 

numberofdialog->Display ( )  ; 

) 

*****  End  of  Commented  Out  Code  *****  */ 

II  SetBrush  sets  the  Selections'  brush  and  updates  the  views  to 
//  display  the  new  current  brush. 

void  Editor :: SetBrush  (IBrush*  brush)  { 
state->SetBrush (brush) ; 
state->UpdateViews () ; 

Do (new  SetBrushChange (drawing,  drawingview,  brush)); 

) 

//  Skew  comments /code  ratio  to  work  around  cpp  bug 
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//  SetFgColor  sets  the  Selections'  foreground  color  and  updates  the 
//  views  to  display  the  new  current  foreground  color. 

void  Editor :: SetFgColor  (IColor*  fg)  { 
state->SetFgColor (fg) ; 
state->UpdateViews ()  ; 

Do (new  SetFgColorChange (drawing,  drawingview,  f g) ) ; 

} 

//  SetBgColor  sets  the  Selections'  background  color  and  updates  the 
//  views  to  display  the  new  current  background  color. 

void  Editor :: SetBgColor  (IColor*  bg)  { 
state->SetBgColor (bg) ; 
state->UpdateViewa ( ) ; 

Do (new  SetBgColorChange (drawing,  drawingview,  bg) ) ; 

} 

//  SetFont  sets  the  Selections'  font  and  updates  the  views  to  display 
//  the  new  current  font. 

void  Editor :: SetFont  (IFont*  font)  { 
state->SetFont (font)  ; 
state->UpdateViewa ( )  ; 

Do (new  SetFontChange (drawing,  drawingview,  font)); 

) 

//  SetPattern  sets  the  Selections'  pattern  and  updates  the  views  to 
//  display  the  new  current  pattern. 

void  Editor :: SetPattern  (IPattern*  pattern)  ( 
state->SetPattern (pattern) ; 
state->UpdateViews () ; 

Do (new  SetPatternChange (drawing,  drawingview,  pattern)); 

) 


//  AlignLeftSides  aligns  the  rest  of  the  Selections's  left  sides  with 
//  the  first  Selection's  left  side. 

void  Editor: : AlignLeftSides  ()  { 

Do (new  AlignChange (drawing,  drawingview.  Left,  Left) ) ; 

) 

//  AlignRightSides  aligns  the  rest  of  the  Selections'  right  sides  with 
//  the  first  Selection's  right  side. 

void  Editor :: AlignRightSides  ()  { 

Do (new  AlignChange (drawing,  drawingview,  Right,  Right)); 

) 

//  AlignBottomSides  aligns  the  rest  of  the  Selections'  bottom  sides 
//  with  the  first  Selection's  bottom  side. 
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void  Editor: rAlignBottoms  ()  ( 

Do<new  AlignChange (drawing,  drawingview.  Bottom,  Bottom)); 

) 

//  AlignTopSides  aligns  the  rest  of  the  Selections'  top  sides  with  the 
//  first  Selection's  top  side. 

void  Editor : :AlignTops  ()  { 

Do (new  AlignChange (drawing,  drawingview.  Top,  Top) ) ; 

) 

//  AlignVertCenters  aligns  the  rest  of  the  Selections'  vertical 
//  centers  with  the  first  Selection's  vertical  center. 

void  Editor :: AlignVertCenters  ()  { 

Do (new  AlignChange (drawing,  drawingview,  VertCenter,  VertCenter) ) ; 

) 

//  AlignHorizCenters  aligns  the  rest  of  the  Selections'  horizontal 
//  centers  with  the  first  Selection's  horizontal  center. 

void  Editor: : AlignHorizCenters  ()  ( 

Do (new  AlignChange (drawing,  drawingview,  HorizCenter,  HorizCenter) ) 

) 


//  AlignCenters  aligns  the  rest  of  the  Selections'  centers  with  the 
//  first  Selection's  center. 

void  Editor :: AlignCenters  ()  { 

Do (new  AlignChange (drawing,  drawingview.  Center,  Center)); 

) 

//  AlignLeftToRight  aligns  each  Selection's  left  side  with  its 
//  predecessor's  right  side. 

void  Editor :: AlignLeftToRight  ()  ( 

Do (new  AlignChange (drawing,  drawingview.  Right,  Left) ) ; 

) 

//  AlignRightToLeft  aligns  each  Selection's  right  side  with  its 
//  predecessor's  left  side. 

void  Editor :: AlignRightToLeft  ()  { 

Do (new  AlignChange (drawing,  drawingview.  Left,  Right)); 

) 

//  AlignBottomToTop  aligns  each  Selection's  bottom  side  with  its 
//  predecessor's  top  side. 

void  Editor: : AlignBottomToTop  ()  ( 

Do (new  AlignChange (drawing,  drawingview.  Top,  Bottom)); 
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} 


//  AlignTopToBottom  aligns  each  Selection's  top  side  with  its 
//  predecessor's  bottom  side. 

void  Editor :: AlignTopToBottom  ()  { 

Do (new  AlignChange (drawing,  drawingview.  Bottom,  Top) ) ; 

} 

//  AlignToGrid  aligns  the  Selections'  lower  left  corners  with  the 
//  closest  grid  point. 

void  Editor: : AlignToGrid  ()  ( 

Do (new  AlignToGridChange (drawing,  drawingview) ) ; 

) 

//  Reduce  reduces  the  drawing's  magnification  by  a  factor  of  two. 

void  Editor: : Reduce  ()  ( 
drawingview->Reduce ( ) ; 

) 

//  Enlarge  enlarges  the  drawing's  magnification  by  a  factor  of  two. 

void  Editor: : Enlarge  ()  ( 
drawingview->Enlarge  0 ; 

} 

//  NormalSize  resets  the  drawing's  magnification. 

void  Editor :: NormalSize  ()  { 
drawingview->NormalSize ( ) ; 

) 

//  ReduceToFit  reduces  the  drawing's  magnification  enough  to  fit  all 
//  of  the  drawing  in  the  window. 

void  Editor: : ReduceToFit  0  { 
drawingview->ReduceToFit () ; 

) 

//  CenterPage  scrolls  the  drawing  so  its  center  coincidences  with  the 
//  window's  center. 

void  Editor: : CenterPage  0  { 
drawingview->CenterPage () ; 

) 

//  RedrawPage  redraws  the  drawing  without  moving  the  view. 

void  Editor :: RedrawPage  0  ( 
drawingview->Draw ( )  ; 
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) 

II  GriddingOnOf f  toggles  the  grid's  constraint  on  or  off. 

void  Editor: : GriddingOnOf f  ()  ( 

state->SetGridGravity ( ! state->GetGridGravity () ) ; 
state->UpdateViewa () ; 

) 

//  GridVisibleInvisible  toggles  the  grid's  visibility  on  or  off. 

void  Editor: : GridVisibleInvisible  ()  { 

state->SetGridVisibility ( ! state->GetGridVisibility () ) ; 
drawingview->Draw ( ) ; 

) 

//  GridSpacing  proirpts  the  user  for  the  new  grid  spacing  in  units  of 
//  points.  If  we  didn't  use  points  as  units,  the  same  grid  spacing 
//  would  not  be  portable  to  different  displays. 

void  Editor: : GridSpacing  ()  { 
static  char  oldspacing[50] ; 

sprintf (oldspacing,  "%lg",  state->GetGridSpacing ( ) ) ; 
char*  spacing  -  nil; 
for  (;;)  { 
delete  spacing; 

spacing  »  3pacingdialog->Edit (oldspacing) ; 
if  (spacing  nil)  { 
brea)t; 

) 

float  s  =  0.; 

if  (sscanf (spacing,  "%f",  ss)  ==  1)  { 
if  (s  >  0.)  { 
state->SetGridSpacing (s) ; 
if  (state->GetGridVisibility ()  »=  true)  ( 
drawingview->Update ( ) ; 

) 

) 

brea)s; 

)  else  { 

spacingdialog->SetWarning ("couldn't  parse  ",  spacing); 

) 

) 

delete  spacing; 

) 

//  Orientation  toggles  the  page  between  portrait  and  landscape 
//  orientations. 

void  Editor :: Orientation  ()  { 
state->ToggleOrientation { ) ; 
drawingview->Update () ; 
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) 


//  ShowVersion  displays  idraw's  version  level  and  author. 

void  Editor :: ShowVersion  ()  { 
versiondialog->Display () ; 

) 

//  Construct  the  filename  from  the  given  prototype  name 

const  char*  Editor : :MakeFilename (const  char*  name)  { 

char*  filename  “  new  char  [strlen(dir>  +  strlen(name)  +  GRAPH_EXT_LEN 
+  1]; 

strcpy (filename, dir) ; 
strcat (filename, name) ; 
strcat (filename, GRAPH_EXT) ; 
return  filename; 


const  char*  Editor :  :MalceSpecFilename  (const  char*  name)  ( 

char*  filename  “  new  char  [strlen(dir)  +  strlen(name)  + 

SPEC_EXT_LEN  +1]; 

strcpy (filename, dir) ; 
strcat (filename, name) ; 
strcat (filename, SPEC_PSDL_EXT) ; 
return  filename; 


//Do  performs  a  change  to  the  drawing  and  updates  the  drawing's 
//  modification  status  if  it  was  unmodified. 

void  Editor: :Do  (ChangeNode*  changenode)  ( 
switch  (state->GetModif Status () )  ( 
case  Unmodified: 
history->Do (changenode)  ; 
state->SetModifStatus (Modified)  ; 
state->UpdateViews () ; 
brea)c; 
default : 

history->Do (changenode)  ; 
break; 

) 


//  InputVertices  lets  the  user  keep  drawing  a  series  of  connected 
//  lines  until  the  user  presses  a  button  other  than  the  left  button. 

//  It  returns  the  vertices  inputted  by  the  user. 

void  Editor :: InputVertices  (Events  e,  Coord*&  xret,  Coord*S  yret,  int& 
nret)  { 

const  int  INITIALSIZE  -  100; 
static  int  sizebuffers  =  0; 
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static  RubberLine**  rubberlines  «  nil; 
static  Coord*  x  «  nil; 
static  Coord*  y  -  nil; 
if  (INITIALSIZE  >  sizebuffers)  { 
sizebuffers  -  INITIALSIZE; 

rubberlines  “  new  RubberLine* [sizebuffers]  ; 

X  -  new  Coord[sizebuf fers]  ; 
y  -  new  Coord[sizebuf fers] ; 

) 

int  n  “  0; 

state->Constrain (e . x,  e . y )  ; 
rubberlines [0]  -  nil; 
x[0]  »=  e.x; 
y[0]  -  e.y; 

++n; 

while  (e. button  --  LEFTMOUSE)  [ 
rubberlines [n]  -  NewRubberLineOrAxis (e) ; 
e. event Type  -  UpEvent; 

drawingview->Manipulate (e,  rubberlines [n] ,  DownEvent,  true,  false) 
Coord  dummy; 

rubberlines [n] ->GetCurrent (dummy,  dummy,  e.x,  e.y); 
x[n]  -  e.x; 
y[n]  -  e.y; 

++n; 


if  (n  —  sizebuffers)  ( 

RubberLine**  oldrubberlines  «  rubberlines; 

Coord*  oldx  *  x; 

Coord*  oldy  -  y; 

sizebuffers  +-  INITIALSIZE/2; 

rubberlines  =  new  RubberLine* [sizebuffers] ; 

X  *  new  Coord[sizebuf fers]  ; 
y  »  new  Coord[sizebuf fers]  ; 

bcopy (oldrubberlines,  rubberlines,  n  *  sizeof (RubberLine* )) ; 

bcopy(oldx,  x,  n  *  sizeof (Coord) ) ; 

bcopy (oldy,  y,  n  *  sizeof (Coord) ) ; 

delete  oldrubberlines; 

delete  oldx; 

delete  oldy; 

} 

) 

xret  -  x; 
yret  -  y; 
nret  =  n; 

for  (int  i  -  1;  i  <  n;  i++)  ( 
rubberlines [i] ->Erase () ; 
delete  rubberlines [i] ; 

) 
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//  NewRubberLineOrAxis  creates  and  returns  a  new  RubberLine  or  a  new 
//  RubberAxis  depending  on  whether  the  shift  key's  being  depressed. 

RubberLine*  Editor: : NewRubberLineOrAxis  (Eventt  e)  ( 
return  (!e. shift  ? 

new  RubberLine (nil,  nil,  e.x,  e.y,  e.x.  e.y) 
new  RubberAxis (nil,  nil,  e.x,  e.y,  e.x,  e.y)); 

} 

//  NewRubberEllipseOrCircle  creates  and  returns  a  new  RubberEllipse  or 
//a  new  RubberCircle  depending  on  the  shift  key's  state. 

RubberEllipse*  Editor: :NewRubberEllipseOrCircle  (Events  e)  ( 
return  (!e. shift  ? 

new  RubberEllipse (nil,  nil,  e.x,  e.y,  e.x,  e.y)  : 
new  RubberCircle (nil,  nil,  e.x,  e.y,  e.x,  e.y)); 

} 

//  Skew  comments /code  ratio  to  work  around  cpp  bug 


//  NewRubberRectOrSquare  creates  and  returns  a  new  RubberRect  or  a  new 
//  RubberSquare  depending  on  whether  the  shift  key's  being  depressed. 

RubberRect*  Editor :: NewRubberRectOrSquare  (Events  e)  ( 
return  (!e. shift  ? 

new  RubberRect (nil,  nil,  e.x,  e.y,  e.x,  e.y)  : 
new  RubberSquare (nil,  nil,  e.x,  e.y,  e.x,  e.y)); 

) 

//  OfferToSave  returns  true  if  it  saves  an  unsaved  drawing  or  the  user 
//  refuses  the  offer  or  no  changes  need  to  be  saved. 

boolean  Editor: rOfferToSave  ()  { 
boolean  successful  =  false; 
if  (state->GetModif Status ( )  ««  Modified)  ( 
char  response  •=  savecurdialog->Confirm()  ; 
if  (response  ==  'y')  { 

Save  0  ; 

if  (state->GetModif Status ( )  Unmodified)  ( 
successful  =  true; 

) 

)  else  if  (response  --  'n')  ( 
successful  «  true; 

) 

)  else  { 

successful  =  true; 

) 

return  successful; 
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//  Reset  redraws  the  view,  clears  the  history,  and  resets  state 
II  information  about  the  drawing's  name  and  its  modification  status. 

void  Editor: : Reset  (const  char*  filename,  const  char*  prototype_name)  ( 
history->Clear ( ) ; 

state->SetDrawingName (prototype_name) ; 

//  if  (prototype_name  !-  nil  &&  !drawing->Writable (filename) )  { 

//  state->SetModifStatu3 (Readonly) ; 

//  ) 

II  else  { 

state->SetModifStatus (Unmodified) ; 

//  ) 

state->UpdateViews ( ) ; 
drawingview->Update () ; 

) 

//  ResetMessage  changes  the  editor's  message  bloc)c 

void  Editor: : ResetMessage (const  char*  msg)  { 
state->SetMe3sage (msg) ; 

3tate->UpdateView3 ( ) ; 

) 
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//  file  idraw.h 

//  description:  Class  description  of  Idraw  class  (main  class  of  editor) . 

//  $Header:  idraw. h,v  1.8  89/10/09  14:48:10  linton  Exp  S 
//  declares  class  Idraw. 

/*  Changse  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  initial_prot  variable  to  store  initial  prototype  given  and  remove 

*  initialfile  variable  because  the  editor  is  no  longer  file  based. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  22,  1990 
*/ 

#ifndef  idraw_h 
♦define  idraw_h 

♦include  <InterViews/scene.h> 

//  Declare  imported  types. 

class  Drawing; 
class  DrawingView; 
class  Editor; 
class  ErrHandler; 
class  MapKey; 
class  State; 

//  An  Idraw  displays  a  drawing  editor. 

class  Idraw  :  public  MonoScene  { 
public : 

Idraw (int,  char**); 

-Idraw {) ; 

void  Run ( )  ; 

void  Handle (Events ) ; 
void  Update ( ) ; 

protected: 

void  ParseArgs (int,  char**); 
void  Init  () ; 

const  char*  initial_prot;  //  stores  name  of  initial  prototype  to 

//  use  if  any 

char*  dir;  //  stores  name  of  directory  of  prototypes 

Drawing*  drawing;  //  performs  operations  on  drawing 
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DrawingView*  drawingview;  //  displays  drawing 

Editor*  editor;  //  handles  drawing  and  editing  operations 

ErrHandler*  errhandler;  //  handles  an  X  request  error 
MapKey*  mapkey;  //  maps  characters  to  Interactors 

State*  state;  //  stores  current  state  info  about  drawing 

Interactor*  tools;  //  displays  drawing  tools 

}; 

#endif 
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//  file  idraw.c 

//  description:  Implementation  of  Idraw  class. 

//  $Header:  idraw. c,v  1.13  89/10/09  14:48:08  linton  Exp  $ 

//  inplements  class  Idraw. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Instead  of  basing  all  drawings  on  file  names,  make  user  use  prototype 

*  names  and  internally  turn  this  into  a  file  name  by  appending  ".graph" 

*  to  it .  This  gives  the  impression  that  the  graphic  editor  is  prototype 

*  name  based  instead  of  file  based. 

*  Instead  of  inputting  file  name,  allow  user  to  input  prototype  name  and 

*  directory  where  prototypes  are  stored. 

*  Add  glue  to  expand  size  of  drawing  area  by  200  pixels. 

it 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  22,  1990 
*/ 

♦include  "commands . h" 

♦include  "drawing. h" 

♦include  "drawingview.h" 

♦include  "editor. h" 

♦include  "errhandler . h" 

♦include  "idraw. h" 

♦include  "istring.h" 

♦include  "mapkey.h" 

♦include  "state. h" 

♦include  "stateviews.h" 

♦include  "tools. h" 

♦include  <InterViews/Graphic/ppaint . h> 

♦include  <InterViews/border.h> 

♦include  <InterViews/box.h> 

♦include  <InterViews/cursor.h> 

♦include  <lnterViews/event .h> 

♦include  <InterViews/f rame. h> 

♦include  <InterViews/glue . h> 

♦include  <InterViews/panner .h> 

♦include  <InterViews/perspective . h> 

♦include  <InterViews/sensor.h> 

♦include  <InterViews /transformer .h> 

♦include  <InterViews/tray.h> 

♦include  <InterViews/Std/os/fs .h> 

♦include  <sys/param.h> 

♦include  <InterViews/Std/stdio. h> 

♦include  <string.h> 

♦include  <stdlib.h> 

//  Idraw  parses  its  command  line  and  initializes  its  members. 

Idraw: :Idraw  (int  argc,  char**  argv)  ( 
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ParseArgs (argc,  argv) ; 
InitPPaint ( ) ; 

InitO  ; 


//  Free  storage  allocated  for  members  not  in  Idraw' s  scene. 

Idraw: : -Idraw  ()  { 

/*  delete  drawing; 
delete  dir; 
delete  editor; 
delete  errhandler; 
delete  mapkey; 
delete  state;  */ 


II  Run  opens  the  initial  file  if  one  was  given  before  starting  to  run. 

void  Idraw;: Run  ()  { 
if  (dir  »=  nil)  { 

//  use  current  directory  to  search  for  and  save  drawing  files 

const  int  bufsize  -  MAXPATHLEN  +  1; 
static  char  bufCbufsize]; 
getcwd(buf, bufsize) ; 
strcat (buf ,  "/")  ; 
dir  «  buf; 

) 

/ /  pass  name  of  prototype  directory  to  editor  class 

editor->SetDirectory (dir) ; 

if  (initial_prot  !=  nil)  { 

SetCursor (hourglass)  ; 
editor->Open  (initial_jprot)  ; 

SetCursor (def aultCursor) ; 

) 

Interactor : : Run ( ) ; 


//  Handle  routes  keystrokes  to  their  associated  interactors. 

void  Idraw: :Handle  (Event*  e)  { 
switch  (e . eventType)  { 
case  KeyEvent; 
if  (e.len  >  0)  { 

Interactor*  i  «  mapkey->LookUp (e. keystring [0] ) ; 
if  (i  !-  nil)  ( 
i->Handle (e) ; 
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) 


} 

break; 

default : 
break; 

) 

} 

//  Update  gets  the  picture's  total  tranf ormation  matrix  whenever  it 
//  changes  and  stores  it  in  State  for  creating  new  graphics. 

void  Idraw: : Update  ()  { 

Transformer  t; 
drawing->GetPictureTT (t)  ; 
state->SetGraphicT (t)  ; 

) 


//  ParseArgs  stores  the  name  of  an  initial  prototype  and  name  of  prototyp 
//  directory  to  use  if  any. 

void  Idraw: : ParseArgs  (int  argc,  char**  argv)  { 
dir  -  nil; 
initial_j)rot  *  nil; 

if  (argc  >  5)  { 

fprintf (stderr,  "too  many  arguments,  usage:  idraw  [file]\n"); 
const  int  PARSINGERROR  =  1; 
exit (PARSINGERROR)  ; 


if  (argc  >•=  3)  { 

//  set  initial  prototype 

if  (strcmp (argv [1] , "-p")  ==  0) 
initial_r>rot  =  argv[2]; 
else  { 

//  set  prototype  directory 

if  (strcmp(argv[l] , "-d")  ==  0)  { 

dir  “  new  char  [strlen (argv [2] )  +  1]; 
strcpy (dir, argv [2] ) ; 
strcat (dir, "/") ; 

) 

) 

) 

if  (argc  ==  5)  { 

//  set  initial  prototype 
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if  (strcnp(argv[3] , "-p")  ==  0) 

initial_prot  •=  argv[4]; 
else  { 

/ /  set  prototype  directory 

if  (strcmp (argv [3] , "-d")  ==  0)  1 

dir  -  new  char  [strlen (argv[4] )  +  1]; 
strcpy (dir, argv [4] ) ; 
strcat (dir, "/") ; 

} 

} 

) 

) 

//  Init  creates  a  sensor  to  catch  keystrokes,  creates  members  and 
//  initializes  links  between  them,  and  composes  them  into  a  view  with 
//  boxes,  borders,  glue,  and  frames. 

void  Idraw ; : Init  ()  { 
input  “  new  Sensor; 
input->Catch (KeyEvent) ; 


drawing 

drawingview 

editor 

errhandler 

mapkey 

state 

tools 


new  Drawing (8 . 5*inches,  ll*inches,  0.05*inch); 

new  Drawingview (drawing->GetPage () ) ; 

new  Editor (this) ; 

new  ErrHandler; 

new  MapKey; 

new  State (this,  drawing->GetPage () ) ; 
new  Tools (editor,  mapkey) ; 


drawingview->GetPerspective () ->Attach (this) ; 

drawingview->SetSelectionList {drawing->GetSelectionList () ) ; 

drawingview->SetState (state)  ; 

drawingview->SetTools (tools)  ; 

editor->SetDrawing (drawing) ; 

editor->SetDrawingView (drawingview) ; 

editor->SetState (state) ; 

errhandler->SetEditor (editor)  ; 

errhandler->Install ()  ; 


VBox*  status  =  new  VBox ( 
new  HBox ( 

new  ModifStatusView (state) , 

new  DrawingNameView (state) , 

new  GriddingView (state) , 

new  FontView (state) , 

new  MagnifView (state,  drawingview) 

), 

new  HBorder 
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VBox*  msgblock  =  new  VBox ( 
new  HBox ( 

new  HGlue (10, 10) , 
new  MsgView (state) 

), 

new  HBorder 

)  ; 

HBox*  indies  “  new  HBox ( 
new  BrushView (state) , 
new  VBorder, 
new  PatternView (state) 

)  ; 

HBox*  cmds  -  new  HBox  ( 

new  Commands  (editor,  map)cey,  state) , 

pad  drawing  area  with  200  extra  pixels 

new  HGlue (200) 

)  ; 


VBox*  panel  =  new  VBox ( 
tools, 
new  VGlue, 
new  HBorder, 
new  Fanner (drawingview) 

)  ; 

panel->Propagate (false) ; 

HBorder*  hborder  “  new  HBorder; 

VBorder*  vborder  =  new  VBorder; 


Tray*  t  =  new  Tray; 


t->HBox (t, 
t->HBox (t, 
t->HBox (t, 
t->HBox (t, 
t->HBox (t. 


status,  t) ; 
msgbloc)c,  t)  ; 

indies,  vborder,  cmds,  t) ; 
hborder,  t) ; 

panel,  vborder,  drawingview,  t) ; 


t->VBox(t, 
t->VBox(t, 
t->VBox (t. 


status,  msgblock,  indies,  hborder,  panel,  t) ; 
status,  msgblock,  vborder,  t) ; 

status,  msgblock,  cmds,  hborder,  drawingview,  t) 


Insert (new  Frame (t,  1)); 


//  file  istring.h 

//  description  Defines  needed  string  functions. 

//  $Header:  istring.h, v  1.8  89/10/09  14:48:29  linton  Exp  $ 

//  extends  <string.h>  to  define  strdup  and  strndup  too. 

I*  No  changes  made  to  conform  Idraw  to  CAPS  graphic  editor 
*! 

#ifndef  istring_h 
♦define  istring_h 

♦include  <string.h> 

//  removes  inproper  characters  from  a  char  string 

char*  RemoveBadChars (char*)  ; 

int  LengthWithoutChars (char*,  char*); 

//  create  tempoary  file  name  by  retrieving  environment  variable 
//  TEMP  and  concantenating  the  filename  onto  it. 

char*  MakeTmpFileName (char*)  ; 

//  strdup  allocates  and  returns  a  duplicate  of  the  given  string. 

inline  char*  strdup  (const  char*  s)  ( 

char*  dup  «  new  char [strlen (s)  +  1); 
strcpy(dup,  a) ; 
return  dup; 

) 

//  strndup  allocates  and  returns  a  duplicate  of  the  first  len 
//  characters  of  the  given  string. 

inline  char*  strndup  (const  char*  s,  int  len)  ( 
char*  dup  =  new  char [len  +  IJ; 
strncpy(dup,  s,  len) ; 
dup  [len]  -=  '\0'; 
return  dup; 

) 

♦endif 
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//  file  istring.c 

//  description:  Implements  needed  string  functions. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  the  in^jlementation  of  string  functions  to  help  manipulate  string 

*  portion  of  PSDL. 

*  This  file  was  created  specifically  for  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  4,  1990 
*/ 


♦include  "istring.h" 

♦include  <InterViews/defa.h> 


char*  RemoveBadChars (char*  string)  ( 

int  new_len  -  LengthWithoutChars (string,  "  \n"); 
int  old_len  =  strlen (string) ; 

char*  modified_string  «  new  char[old_len  +  1); 
if  (new_len  <  old_len)  { 
int  m_ctr  -  0; 

for  (int  i  «  0;  i  <  old_len;  ++i)  ( 

if  (stringCi]  !=  ' \n'  &&  string[i]  !=  '  ')  { 
modified_string[m_ctr++]  =  string[i]; 

) 

) 

modif ied_string [m_ctr]  -  '\0'; 

} 

else  { 

strcpy (modif ied_string, string)  ; 

) 

return  modified_string; 

) 


int  LengthWithoutChars (char*  string,  char*  unwanted_chars)  ( 
int  size  =  strlen (unwanted_chars) ; 
int  string_size  *  strlen (string) ; 
int  no_of_chars  =  0; 
for  (int  i  -  0;  i  <  size;  ++  i)  { 

for  (int  j  =  0;  j  <  string_size;  ++j)  ( 
if  (string[j]  =*  unwanted_chars [i] )  { 

++no_of_chars; 

) 

) 

) 

return  string_size  -  no_of_chars; 

) 

II  ma)ce  temporary  filename  by  concatenating  the  environment  variable 
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//  TEMP  with  the  given  filename 

char*  MakeTmpFileName (char*  filename)  ( 

char*  tnp_dir  -  (char*)  getenv ("TEMP") ; 
char*  result; 

if  (tmp_dir  !-  nil)  { 

int  tnp_len  -  strlen (tmp_dir) ; 

result  “  new  char  [titp_len  +  strlen  (filename)  +  2] 
strcpy (result,  tmp_dir) ; 
if  (tmp_dir [tJi¥)_len  -  1]  !“'/')  { 
strcat (result,  "/"); 

) 

strcat (result,  filename); 

) 

else  { 

result  «  filename; 

} 

return  result; 

) 
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//  file  keystrokes. h 

II  description:  Defines  keystrokes  that  map  to  tools  and  commands. 

//  $Header:  keystrokes. h,v  1.12  89/10/09  14:48:30  linton  Exp  $ 

//  defines  all  the  key  strokes  that  idraw  handles. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Change  RESHAPECHAR  to  MODIFYCHAR  to  be  consistent  with  changing 

*  RESHAPE  to  MODIFY  as  commands 

*  Add  ANNOTATECHAR,  DECOMPOSECHAR,  COMMENTCHAR,  and  LABELCHAR  and 

*  remove  TEXTCHAR  for  the  adding  and  removing  of  commands . 

*  Change  ANNOTATECHAR  to  SPECIFYCHAR  to  be  consistent. 

*  Add  STREAMSCHAR  and  CONSTRAINTSCHAR  because  of  adding  those  tools. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  3,  1990 
*/ 

//  You  can  select  a  Panelltem  by  typing  one  of  these  characters. 

static  const  char  SELECTCHAR  «  's'; 
static  const  char  MOVECHAR  =  'm' ; 

static  const  char  SCALECHAR  -  '  j' »' 

static  const  char  STRETCHCHAR  «  ' ; '  ; 

static  const  char  ROTATECHAR  =  'k'; 

static  const  char  MODIFYCHAR  «=  'q'; 

static  const  char  MAGNIFYCHAR  =  'z'; 

Static  const  char  SPECIFYCHAR  -  'A'; 

static  const  char  STREAMSCHAR  «  'M'; 

static  const  char  CONSTRAINTSCHAR  -  'C'; 
static  const  char  DECOMPOSECHAR  =  'D'; 

static  const  char  COMMENTCHAR  *  't'; 

static  const  char  LABELCHAR  =  'T'; 

static  const  char  METCHAR  -  'E'; 

static  const  char  LATENCYCHAR  =  'L'; 

static  const  char  LINECHAR  -  '1'; 
static  const  char  MULTILINECHAR  =  'w'; 
static  const  char  BSPLINECHAR  =»  'h'; 

static  const  char  ELLIPSECHAR  •=  'o'; 

static  const  char  RECTCHAR  =  'r'; 
static  const  char  POLYGONCHAR  =  'p'; 
static  const  char  CLOSEDBSPLINECHAR  «  'y'; 

//  You  can  execute  a  PullDownMenuCommand  by  typing  one  of  these 
//  characters. 

static  const  char  NEWCHAR  =  '\016';  //  ''N 
static  const  char  REVERTCHAR  =  '\022';  //  ''R 
static  const  char  OPENCHAR  -  '\017';  II  "'O 

static  const  char  SAVECHAR  -  '\023';  //  ''S 

static  const  char  SAVEASCHAR  -  '\001';  //  "A 
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static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 
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static 
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static 

const 
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static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

static 

const 

char 

PRINTCHAR  -  '\020';  //  “P 

QUITCHAR  -  '\021';  // 


UNDOCHAR  -  '  U' ; 

REDOCHAR  -  ' R'  ; 

CUTCHAR  -  'x'; 

COPYCHAR  -  'c'; 

PASTECHAR  »  '  v'  ; 

DUPLICATECHAR  -  '  d'  ; 
DELETECHAR  •=  '\004';  //  ''D 
SELECTALLCHAR  -  'a'; 
FLIPH0R120NTALCHAR  - 
FLIPVERTICALCHAR  -  ' I ' ; 
_90CLOCKWISECHAR  =  ' ] ' ; 
_90COUNTERCWCHAR  - 
PRECISEMOVECHAR  -  'M'; 
PRECISESCALECHAR  -  'J'; 
PRECISEROTATECHAR  -  '  K' ; 


GROUPCHAR  -  '  g'  ; 
UNGROUPCHAR  -  'u'; 
BRINGTOFRONTCHAR  =  'f'; 
SENDTOBACKCHAR  »  'b'; 
NUMBEROFGRAPHICSCHAR  -  ' # ' ; 


ALIGNLEFTSIDESCHAR  -  '1'; 
ALIGNRIGHTSIDESCHAR  -  '2'; 
ALIGNBOTTOMSCHAR  -  '3'; 
ALIGNTOPSCHAR  »  '4'; 
ALIGNVERTCENTERSCHAR  -  '5'; 
ALIGNHORIZCENTERSCHAR  -  '6'; 
ALIGNCENTERSCHAR  -  '7'; 
ALIGNLEFTTORIGHTCHAR  -  ' 8' ; 
ALIGNRIGHTTOLEFTCHAR  •=  '9'; 
ALIGNBOTTOMTOTOPCHAR  =  'O'; 
ALIGNTOPTOBOTTOMCHAR  » 
ALIGNTOGRIDCHAR  -  ' . ' ; 

REDUCECHAR  -  'i'; 

ENLARGECHAR  -  'e'; 

NORMALS I ZECHAR  «  'n'; 
REDUCETOFITCHAR  - 
CENTERPAGECHAR  -  ' / ' ; 
REDRAWPAGECHAR  -  '\014';  //  ''L 
GRIDDINGONOFFCHAR  -  ' , ' ; 
GRIDVISIBLEINVISIBLECHAR  -  '?'; 
GRIDSPACINGCHAR  -  'S'; 
ORIENTATIONCHAR  -  ' ; 
SHOWVERSIONCHAR  -  ' $' ; 
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//  file  main.c 

//  description  Graphic  editor  driver. 

//  $Header:  main.c,v  1.11  89/10/09  14:48:57  linton  Exp  $ 

//  runs  idraw. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Use  only  one  brush  type  (directed  line  with  arrowhead  on  right  hand  end 

*  of  line)  and  comment  out  all  other  brush  options 

*  Add  options  for  pattern  for  arrowhead 

*  Comment  out  all  but  three  pattern  choices  since  the  others  are  not 
needed 

*  for  data  flow  diagrams 

*  Change  initial  brush  pattern  to  be  the  only  one  available 

*  Change  initial  pattern  to  be  white 

*  Add  geometry  option  to  make  graphic  editor  appear  in  lower  left  hand 
corner 

*  of  screen 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  29,  1990 

*/ 

♦include  "idraw. h" 

♦include  <lnterViewa/world.h> 

//  Predefine  default  properties  for  the  window  size,  paint  menus,  and 
//  history. 

static  PropertyData  properties  []  ■=  ( 

{  "*fontl",  "*-courier-medium-r-*-80-*  Courier  8"  ), 

(  "*font2",  "*-courier-medium-r-*-100-*  Courier  10"  ), 

{  "*font3",  "*-courier-bold-r-*-120-*  Courier-Bold  12"  }, 

{  "*font4",  "*-helvetica-medium-r-*-120-*  Helvetica  12"  ), 

{  "*font5",  "*-helvetica-medium-r-*-140-*  Helvetica  14"  ), 

(  "*font6",  "*-helvetica-bold-r-*-140-*  Helvetica-Bold  14"  ), 

(  "*font7",  "*-helvetica-medium-o-*-140-*  Helvetica-Oblique  14"  1, 

(  "‘fontO",  "*-times-medium-r-*-120-*  Times-Roman  12"  ), 

{  "*font9",  "*-times-medium-r-*-140-*  Times-Roman  14"  ), 

{  "*fontl0",  "*-times-bold-r-*-140-*  Times-Bold  14"  }, 

{  "*fontll",  "*-times-medium-i-*-140-*  Times-Italic  14"  ), 

(  "*brushl",  "ffff  101"  ), 

//  These  brush  types  are  not  needed  for  a  data  flow  diagram 

/*  *****  start  of  Commented  Out  Code  ***** 

{  "*brushl",  "none"  }, 

{  "*brush2",  "ffff  100"),  removed  all  brush  types  except  for 

{  "*brush3",  "ffff  110"),  the  type  that  has  as  its  first  end 

(  "*brush4",  "ffff  101"),  endpoint  the  end  without  the  arrow 

{  "*brush5",  "ffff  111"  ),  head  and  it's  second  or  last  end 
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{  "*brush6",  "3333  100"),  point  is  the  end  with  the  arrowhead 
{  "*bru3h7",  "3333  200"), 

{  "*brush8",  "ffff  200"  ), 

*****  End  of  Comments  Out  Code  *****  */ 


{  "*patternl",  "none"  ), 

{  "*pattern2",  "0.0"  ), 

{  "*pattern3",  "1.0"  ), 

{  "*arrowpatternl",  "none"  ), 

{  "*arrowpattern2",  "0.0"  ), 

{  "*arrowpattern3",  "1.0"  ), 

//  These  patterns  are  not  needed  for  a  data  flow  diagram 
/*  *****  Start  of  Commented  Out  Code  ***** 


"*pattern4". 

"0.75" 

), 

i 

"*pattern5". 

"0.5"  ) 

/ 

{ 

"*pattern6". 

"0.25" 

), 

{ 

"*pattern7". 

"1248" 

), 

{ 

"*pattern8". 

"8421" 

), 

{ 

"*pattern9". 

"fOOO" 

), 

{ 

"*patternl0". 

"8888" 

), 

{ 

"*patternll". 

"f888" 

), 

{ 

"*patternl2". 

"8525" 

}, 

{ 

"*patternl3". 

"cc33" 

), 

"*patternl4". 

"7bed" 

), 

*****  gnd  of  Commented  Out  Code  *****  */ 


{ 

"*fgcolorl". 

"Black" 

), 

{ 

"*fgcolor2". 

"Brown  42240 

10752 

10752"  1 

1, 

{ 

"*fgcolor3". 

"Red"  ), 

{ 

"*fgcolor4". 

"Orange" 

), 

{ 

"*fgcolor5". 

"Yellow" 

), 

{ 

"*fgcolor6". 

"Green" 

), 

{ 

"*fgcolor7". 

"Blue"  ) 

r 

"*fgcolor8". 

"Indigo 

48896 

0  65280"  ), 

( 

"*fgcolor9". 

"Violet 

20224 

12032 

20224" 

), 

"*fgcolorl0". 

"White" 

), 

{ 

"*fgcolorll". 

"LtGray 

50000 

50000 

50000" 

), 

"*fgcolorl2". 

"DkGray 

33000 

33000 

33000" 

), 

{ 

"*bgcolorl". 

"Black" 

), 

{ 

"*bgcolor2". 

"Brown  42240 

10752 

10752"  1 

1, 

{ 

"*bgcolor3". 

"Red"  ), 

"*bgcolor4". 

"Orange" 

), 

"*bgcolor5". 

"Yellow" 

), 

"*bgcolor6". 

"Green" 

), 

{ 

"*bgcolor7". 

"Blue"  ) 

f 

{ 

•'*bgcolor8". 

"Indigo 

48896 

0  65280"  ), 

i 

"*bgcolor9". 

"Violet 

20224 

12032 

20224" 

), 

"*bgcolorl0". 

"White" 

), 

{ 

"*bgcolorll". 

"LtGray 

50000 

50000 

50000" 

}, 

{ 

"*bgcolorl2". 

"DkGray 

33000 

33000 

33000" 

), 
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2"  ) 


{  "*initialfont",  ”2”  }, 

(  "*initialbrush",  "1"  ), 

{  "*initialpattern", "3"  ), 

{  "*initialarrowpattern",  " 

{  "*initialfgcolor",  "1"  ), 

{  "*initiaibgcolor",  "10"  }, 

(  ""history",  "20"  ), 

{  ""reverseVideo",  "off"  ), 
{  ""small",  "true"  ), 

{  ""geometry",  "+0-0"), 

(  nil  ) 


//  Define  window  size  options. 

static  OptionDesc  options []  -  ( 

{  "-1",  ""small",  OptionValuelir^licit,  "false"  ), 
(  "-S",  ""small",  OptionValueImplicit,  "true"  ), 

{  nil  ) 


//  main  creates  a  connection  to  the  display  server,  creates  idraw,  and 
//  opens  idraw' s  window.  After  idraw  stops  running,  main  closes 
//  idraw' s  window,  deletes  everything  it  created,  and  returns  success. 

int  main  (int  argc,  char""  argv)  ( 

World"  world  ■  new  World ("Idraw",  properties,  options,  argc,  argv) 
Idraw"  idraw  -  new  Idraw (argc,  argv) ; 

world->InsertApplication (idraw) ; 
idraw->Run () ; 
world->Remove (idraw) ; 

delete  idraw; 
delete  world; 

const  int  SUCCESS  ■=  0; 
return  SUCCESS; 

) 


//  file  opsellist.h 

//  description:  Class  description  of  OperatorSelList . 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  definition  of  list  of  operator  selections  class  and  class  of  nodes 

*  to  be  used  in  the  list 

*  This  header  file  was  created  specifically  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  29,  1990 
*/ 

#ifndef  opsellist_h 
♦define  opsellist_h 

♦include  "list.h" 

class  BSplineSelection; 
class  EllipseSelection; 

//  class  LineSelection; 
class  OperatorSelection; 
class  Selection; 
class  TextSelection; 

class  OperatorSelNode  :  public  BaseNode  { 
public : 

OperatorSelNode (OperatorSelection*  os)  {  opsel  •  os;  ) 
boolean  SameValueAs  (void*  p)  (  return  opsel  *==  p;  ) 
OperatorSelection*  GetSelection ()  (  return  opsel;  1 

protected: 

OperatorSelection*  opsel;  //  points  to  an  operator  selection 

); 


class  OperatorSelList  :  public  BaseList  { 
public : 

OperatorSelNode*  First (); 

OperatorSelNode*  Last () ; 

OperatorSelNode*  Prev(); 

OperatorSelNode*  NextO; 

OperatorSelNode*  GetCurO; 
void  SetCur (EllipseSelection*) ; 
void  SetCurContaining (Coord,  Coord); 
void  SetCurWithLabel (TextSelection*) ; 

OperatorSelNode*  Index (int); 

void  SearchOperators (TextSelection*,  EllipseSelection*); 

//  void  SearchOperatorsForLine (TextSelection* ,  LineSelection*); 

char*  SearchOperatorsForSpline (TextSelection* ,  BSplineSelection* ) ; 
void  Replace (Selection*,  Selection*); 
void  Remove (Selection*) ; 

void  AddMETToOperator (TextSelection* ,  EllipseSelection*); 
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void  AddLatencyToDataFlow (TextSelection*,  BSplineSelection*) 
Selection*  FindLabel (Selection*) ; 

BSplineSelection*  GetFlow (TextSelection*) ; 

TextSelection*  (SetSelfLoopLabel (BSplineSelection*) ; 
TextSelection*  GetDFLabel (BSplineSelection*)  ; 

TextSelection*  GetDFLatency (BSplineSelection*) ; 
TextSelection*  GetOperatorLabel (EllipseSelection*)  ; 
TextSelection*  GetOperatorMET(EllipseSelection*)  ; 
protected: 

void  ReplaceOperator (EllipaeSelection*,  EllipseSelection*) ; 
void  ReplaceText (TextSelection*,  TextSelection*); 

//  void  ReplaceDFLine (LineSelection*,  LineSelection*) ; 

void  ReplaceDFSpline (BSplineSelection*,  BSplineSelection*); 
void  ReplaceSelf Loop (BSplineSelection*,  BSplineSelection*); 
void  RemoveOperator (EllipseSelection*) ; 

//  void  RemoveDFLine (LineSelection*)  ; 

void  RemoveDFSpline (BSplineSelection*) ; 
void  RemoveSelf Loop (BSplineSelection*)  ; 

); 

inline  OperatorSelNode*  OperatorSelList: : First ()  { 
return  (OperatorSelNode*)  BaseList: : First () ; 

1 

inline  OperatorSelNode*  OperatorSelList: : Last ()  ( 
return  (OperatorSelNode* )  BaseList : : Last ( ) ; 

) 

inline  OperatorSelNode*  OperatorSelList: :Prev()  ( 
return  (OperatorSelNode*)  BaseList: :Prev () ; 

} 

inline  OperatorSelNode*  OperatorSelList: : Next ()  ( 
return  (OperatorSelNode*)  BaseList: : Next () ; 

) 

inline  OperatorSelNode*  OperatorSelList: :GetCur()  ( 
return  (OperatorSelNode*)  BaseList: :GetCur () ; 

) 

inline  OperatorSelNode*  OperatorSelList :: Index (int  index)  ( 
return  (OperatorSelNode*)  BaseList :: Index (index) ; 

) 

#endif 
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//  file  opsellist.c 

//  description:  Implementation  of  OperatorSelList  class. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  iir^lementation  of  list  of  operator  selections  class. 

*  This  file  was  created  specifically  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  29,  1990 
*/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"dfdclasses . h" 

"df dsplinelist . h" 

"opsellist .h" 

"selection. h" 

"sldfdline.h" 

"sldfdspline . h" 

"slellipses.h" 

"sloperator.h" 

"slsplines . h" 

"sltext .h" 

<InterViews/Graphic/base .h> 
<InterViews/Std/string.h> 


//  Set  current  node  of  list  to  be  the  one  that  contains  the  given  ellipse 
//  selection  (operator) 


void  OperatorSelList :: SetCur (EllipseSelection*  es)  { 
for  (First  0/  !AtEnd();  NextO)  { 

if  (GetCur ( ) ->GetSelection () ->GetEllipseSelection 0  ==  es)  ( 
return; 

) 

) 

return; 

) 

//  Set  current  node  of  list  to  be  the  one  whose  ellipse  selection  contains 
//  the  given  point 


void  OperatorSelList :: SetCurContaining (Coord  x.  Coord  y)  ( 
for  (First  0;  !AtEnd();  NextO)  ( 

if  (GetCur ( ) ->GetSelection ( ) ->GetEllipseSelection ( ) ->Contains ( 

new  PointOb j (x, y) ) ) 

return; 

) 

return; 

) 


//  Set  current  node  of  list  to  be  the  one  whose  txtsel  is  the  given 
//  TextSelection 


void  OperatorSelList :: SetCurWithLabel (TextSelection*  label)  { 
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for  (First  0;  lAtEndO;  NextO)  { 

if  (GetCur 0 ->GetSelection {) ->GetTextSelection ( )  ==  label)  { 
return; 

) 

) 

return; 

) 

//  Search  list  for  given  ellipse  selection  (operator)  and  if  found,  place 
given 

//  text  (label)  in  that  node 

void  OperatorSelList : : SearchOperators (TextSelection*  ts, 

EllipseSelection*  es)  ( 

SetCur (es) ; 
if  (lAtEndO) 

(^tCur (' GetSelection () ->SetTextSelection (ts) ; 

) 

//  Lines  no  longer  used,  only  use  splines 
f-k  *****  start  of  Commented  Out  Code  ***** 

II  Search  list  for  given  line  in  each  of  the  operator's  list  of  lines  and 
if 

//  found,  place  given  text  (label)  in  that  node  in  the  list  of  lines. 

//  Because  we  have  to  find  both  operators  in  order  to  update  the  PSDL 
//  properly,  the  function  of  finding  the  line  in  the  list  has  been  split 
//  into  2  functions.  The  first  function  adds  the  label,  the  second  func¬ 
tion 

//  just  updates  the  PSDL. 

void  OperatorSelList :: SearchOperatorsForLine (TextSelection*  ts, 

LineSelection*  Is)  ( 

char*  old_string  =  nil; 
int  len; 

const  char*  copy_string,- 
OperatorSelection*  first _op; 
char*  new_string; 

copy_string  =  ts->GetOriginal (len)  ; 
new_string  =  new  char[len+l); 
strncpy (new_string,  copy_string,  len); 
new_st ring [len]  =  '\0'; 
for  (First  0;  !AtEnd();  NextO)  ( 

old_string  =  GetCur () ->GetSelection () ->FindLineInList (ts.  Is) ; 
if  (old_string  !=  nil)  { 

first_op  •  GetCur 0 ->GetSelection 0 ; 
brea)c; 

) 

) 

for  (First  0;  !AtEnd();  NextO)  { 
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if  (GetCur 0 ->GetSelection ()  !“  first_op)  { 

boolean  found_2  -  GetCur () ->GetSelection () 

->FindLineInSecondList (old_string,  new_string.  Is); 
if  (found_2) 
break; 

) 

) 

} 

*****  End  of  Commented  Out  Code  *****  */ 

II  Search  list  for  given  spline  in  each  of  operator's  list  of  splines  and 
//  if  found,  place  given  text  (label)  in  that  node  in  the  list  of  splines. 
//  Because  we  have  to  find  both  operators  in  order  to  update  the  PSDL 
//  properly,  the  function  of  finding  the  line  in  the  list  has  been  split 
II  into  finding  the  first  line  to  update  the  label  and  finding  the  line  in 
II  the  second  list  to  change  the  PSDL. 

char*  OperatorSelList : : SearchOperatorsForSpline (TextSelection*  ts, 

BSplineSelection*  ss)  { 

char*  old_string  -  nil; 
const  char*  copy_string; 
char*  new_string; 
int  len; 

copy_string  «  ts->GetOriginal (len) ; 
new_string  -  new  char[len+l]; 
strncpy (new_string, copy_string, len) ; 
new_st ring [len]  -  '\0'; 

OperatorSelection*  first_op; 
for  (First  0;  lAtEndO;  NextO)  { 

old_string  •«  GetCur () ->GetSelection () ->FindSplineInList (ts,  ss); 
if  (old_string  !=  nil)  { 

first_op  “  GetCur 0 ->GetSelection () ; 
break; 

) 

) 

for  (First  0;  !AtEnd();  NextO)  { 

if  (GetCur 0 ->GetSelection ()  !=  first_op)  { 

boolean  found_2  -  GetCur () ->GetSelection ( ) 

->FindSplineInSecondList (old_string,  new_string,  ss) ; 
if  (found_2)  { 

return  old_string; 

) 

) 

) 

return  nil; 

) 

//  Search  list  for  given  ellipse  selection  (operator)  and  if  found, 

//  replace  it  with  the  new  ellipse  selection  (operator) 

void  OperatorSelList: : ReplaceOperator (EllipseSelection*  replacee. 
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EllipseSelection*  replacer)  { 

SetCur (replacee) ; 
if  (lAtEndO)  { 

GetCur () ->GetSelection () ->SetEllipseSelection (replacer) ; 


//  Search  list  for  given  text  (label)  and  if  found,  replace  it  with  new 
//  text  (label).  It  the  label  is  not  attached  to  an  operator,  each  of 
//  of  the  lists  associated  with  the  operator  must  be  searched  because 
//it  might  be  a  label  on  one  of  the  data  flows  or  self  loops 

void  OperatorSelList: :ReplaceText (TextSelection*  replacee, 

TextSelection*  replacer)  ( 

boolean  found  -  false; 

Classld  cid  -  replacee->GetClassId() ; 
char*  old_string; 
switch  (cid)  { 
case  LABEL_OP: 

for  (First  ();  !AtEnd()  &&  (found;  NextO)  { 

if  (GetCur () ->GetSelection () ->GetTextSelection  ()  -=  replacee)  { 
found  =  true; 

GetCur () ->GetSelection () ->SetTextSelection (replacer) ; 


brea)c; 

case  MET_OP: 

for  (First  0;  (AtEndO  &&  (found;  NextO)  { 

if  (GetCur 0 ->GetSelection 0 ->GetMETSelection ( )  replacee)  ( 
found  =  true; 

GetCur ( ) ->GetSelection () ->SetMETSelection (replacer) ; 


brea)c; 

case  LAT_DF: 
case  LABEL_SL: 

for  (First  ();  (AtEndO  &&  (found;  NextO)  { 
old_string  =  GetCur () ->GetSelection () -> 

FoundTextInLists (replacee, replacer) ; 
if  (old_string  (=  nil)  { 
found  =  true; 


brea)c; 

case  LABEL_DF: 

for  (First  ()  ;  (AtEndO;  NextO)  ( 
if  ( [ found)  ( 

old_string  =  GetCur () ->GetSelection () -> 

FoundTextInLists (replacee, replacer) ; 
if  (old_string  (=  nil)  { 
found  =  true; 
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else  { 

GetCur ( ) ->GetSelection ( ) 

->FoundSecondTextInLists (old  string, replacer) ; 


//  Determine  the  type  (class  id)  of  the  given  selection  and  call  proper 
//  function  to  replace  the  selection  with  the  new  selection  in  the  proper 
//  list 

void  OperatorSelList :: Replace (Selection*  replacee.  Selection*  replacer)  { 
Classid  cid  -  replacee->GetClassId() ; 
if  (cid  —  OPERATOR)  { 

ReplaceOperator ( (EllipseSelection*)  replacee, 

(EllipseSelection*)  replacer); 

} 

else  ( 

if  (cid  —  LABEL_OP  |  |  cid  --  1ABEL_DF  I  I  cid  --  LABEL_SL  I  I 
cid  ~  MET_OP  I  I  cid  ~  LAT_DF)  { 

ReplaceText ( (TextSelection* )  replacee, 

(TextSelection*)  replacer); 

} 

/*  *****  start  of  Commented  Out  Code  ***** 
else  ( 

if  (cid  —  DATAFLOW_LINE)  { 

ReplaceDFLine ( (LineSelection*)  replacee, 

(LineSelection*)  replacer); 

) 

*****  End  of  Commented  Out  Code  *****  */ 
else  ( 

if  (cid  —  DATAFLOW_SPLINE)  { 

ReplaceDFSpline ( (BSplineSelection*)  replacee, 

(BSplineSelection*)  replacer) ; 

) 

else  ( 

if  (cid  =•=  SELFLOOP)  { 

ReplaceSelfLoop ( (BSplineSelection*)  replacee, 

(BSplineSelection*)  replacer); 


//  ) 
) 


II  No  longer  using  lines,  use  splines  instead 


Start  of  Commented  Out  Code  ***** 
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//  Search  each  list  of  lines  associated  with  each  operator  in  list  to  re 
place 

//  given  line  with  new  line 

void  OperatorSelList : : ReplaceDFLine (LineSelection*  replacee, 

LineSelection*  replacer)  { 

boolean  found  ■  false; 

for  (First  0;  !AtEnd()  &&  !  found;  NextO)  { 

found  *  GetCur () ->GetSelection () ->FoundLineInLists (replacee, re¬ 
placer)  ; 

} 

} 

*****  End  of  Commented  Out  Code  *****  */ 

//  Search  each  list  of  splines  associated  with  each  operator  in  list  to 
/ /  replace  given  spline  with  new  spline 

void  OperatorSelList: : ReplaceDFSpline (BSplineSelection*  replacee, 

BSplineSelection*  replacer)  { 

boolean  found  ••  false; 

for  (First  0;  lAtEndO  &&  !  found;  NextO)  { 
found  =  GetCur 0 ->GetSelection () -> 

FoundSplineInLists (replacee,  replacer) 

) 

} 

//  Search  list  of  self  loops  associated  with  each  operator  in  list  to 
//  replace  given  self  loop  with  new  self  loop 

void  OperatorSelList: :ReplaceSelf Loop (BSplineSelection*  replacee, 

BSplineSelection*  replacer)  { 

boolean  found  •=  false; 

for  (First  0;  !AtEnd()  &&  (found;  NextO)  ( 
found  =  GetCur 0 ->GetSelection () -> 

FoundSelf LoopInList (replacee, replacer) 

) 

) 

//  Remove  the  given  selection  from  the  operator  selection  list 

void  OperatorSelList :: Remove (Selection*  s)  ( 

Classid  cid  =  s->GetClassId () ; 
if  (cid  — =  OPERATOR)  ( 

RemoveOperator ( (EllipseSelection*)  s) ; 

) 

/*  *****  Start  of  Commented  Out  Code  ***** 

else  { 

if  (cid  »=  DATAFLOW_LINE)  { 

RemoveDFLine ( (LineSelection*)  s)  ; 

) 

*****  End  of  Commented  Out  Code  *****  */ 
else  { 
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if  (Cid  “  DATAFL0W_SPL1NE)  { 

RemoveDFSpllne { (BSplineSelection* )  s ) ; 

) 

else  { 

if  (cid  --  SELFLOOP)  ( 

RemoveSelf Loop ( (BSplineSelection* )  s ) ; 

) 

else  { 

if  (cid  --  LABEL_OP  |  I  cid  --  LABEL_DF  |  |  cid  --  LABEL_SL  I  I 
cid  “  MET_OP  I  I  cid  --  LAT_DF)  ( 

//  a  node  does  not  need  to  be  deleted,  only  the  label  of  the  node 

//  needs  to  be  deleted 

TextSelection*  ts  -  nil; 

ReplaceText ( (TextSelection*)  s,  ts); 

) 

) 

//  ) 

) 

) 

) 

//  Remove  an  operator  from  the  list  of  operator  selections 

void  OperatorSelList: rRemoveOperator (EllipseSelection*  es)  ( 

SetCur (es) ; 
if  (lAtEndO)  ( 

OperatorSelection*  os  ■  GetCur () ->GetSelection () ; 

DeleteCur () ; 
delete  os; 

) 

} 

//  Lines  no  longer  used,  use  splines  instead 
I*  *****  Start  of  Commented  Out  Code  ***** 

//  remove  a  data  flow  line  from  the  operator  selection  list.  This 
//  involves  removing  it  from  both  operator  selection  nodes  if  it  is 
//an  output  of  one  operator  and  an  input  of  another  operator.  Otherwise, 
//  the  node  will  only  be  deleted  once.  Return  the  line's  label  so  that  it 
//  may  be  removed  also. 

void  OperatorSelList : :RemoveDFLine (LineSelection*  Is)  ( 
boolean  found_l  -  false,  found_2  •  false; 

DFDLineSelection*  DFDL; 

//  search  each  operator 

for  (First  ();  !AtEnd();  NextO)  ( 

DFDLineSelList*  ill  -  GetCur () ->GetSelection () ->GetInputDFLineL- 

ist  ()  ; 
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//  search  the  operator's  list  of  input  data  flow  lines 

for  (ill->First 0 ;  ! ill->AtEnd() ;  ill->Next())  { 

if  (ill->GetCur () ->GetSelection ( ) ->GetLineSelection ( )  ==  Is)  { 

/ /  the  line  was  found  in  the  input  list 

if  (!found_l)  { 

found_l  -  true; 

DFDL  -  ill->GetCur 0 ->GetSelection ( ) ; 

) 

else  ( 

found_2  “  true; 

} 

ill->DeleteCur ( ) ; 

//  an  assumption  was  made  that  it  will  not  be  in  the  input 

/ /  list  more  than  once 

break; 

) 

) 

//  if  line  has  not  been  found  in  two  lists,  search  output  list 

if  <!found_2)  { 

DFDLineSelList*  oil  «  GetCur () ->GetSeleotion ( ) -> 

GetOutputDFLineList  0 ; 

for  (oll->First 0 ;  !oll->AtEnd() ;  oll->Next())  { 

if  (oll->GetCur  () ->GetSelection  () ->GetLineSelection  0  >*= 

Is)  { 

//  the  line  was  found  in  the  output  list 

if  (!found_l)  { 

found_l  true; 

DFDL  =  oll->GetCur ( ) ->GetSelection ( ) ; 

) 

else  { 

found_2  •  true; 

) 

oll->DeleteCur ( ) ; 

//  an  assumption  was  made  that  the  line  will  not  be  in 

//  the  output  list  more  than  once 

break; 

) 

) 

) 

if  (found  2)  ( 
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// 

// 


// 


) 

if 

// 


) 

) 

*****  End  of  Commented  Out  Code  *****  */ 

//  remove  a  data  flow  spline  from  the  operator  selection  list.  This 
//  involves  removing  it  from  both  operator  selectio  nodes  if  it  is 
//an  output  of  one  operator  and  an  input  of  another  operator.  Otherwise, 
//  the  node  will  only  be  deleted  once.  Return  the  spline's  label  so  that 
//  it  may  be  removed  also. 

void  OperatorSelList : :RemoveDFSpline (BSplineSelection*  ss)  { 
boolean  found_l  ■>  false,  found_2  •=  false; 

DFDSplineSelection*  DFDS; 

//  search  each  operator 

for  (First  0;  lAtEndO;  Next  () )  | 

DFDSplineSelList*  isl  =  GetCUi.  0 -•'‘GetSelection  () -> 

GetInputDFSplineList () ; 

//  search  the  operator's  list  of  input  data  flow  splines 

for  (isl->First () ;  ! isl->AtEnd() ;  isl->Next())  ( 
if  (isl->GetCur ( ) ->GetSelection () ->GetSplineSelection ()  ==  ss)  ( 

//  the  line  was  found  in  the  input  list 

if  (!found_l)  t 

found_l  *  true; 

DFDS  =  isl->GetCur ( ) ->GetSelection 0 ; 

) 

else  ( 

found_2  *  true; 

) 

TextSelection*  in_label_ts  -  isl->GetCur ( ) ->GetSelection  () 

->GetTextSelection ( ) ; 


the  line  was  found  in  two  lists  so  we  do  not  need  to  search 
the  operator  list  any  longer 

remove  the  dfd  line  selection  that  the  node  was  pointing  to 

delete  DFDL; 
break; 

) 

(found_l  &&  (!found_2))  ( 

remove  the  dfd  line  selection  that  the  node  was  pointing  to 
delete  DFDL; 
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// 

// 


GetCurO ->GetSelection ( ) ->RemoveInputFromPSDL (in_label_ts) ; 
isl->DeleteCur ( ) ; 

an  assumption  was  made  that  it  will  not  be  in  the  input 
list  more  than  once 

break ; 

) 

) 

//  if  the  spline  has  not  been  found  in  two  lists,  search  the  output 

list 

if  (!found_2)  { 

DFDSplineSelList*  osl  -  GetCurO ->GetSelection{) -> 

GetOutputDFSplineList () ; 

for  {osl->First ( ) ;  !osl->AtEnd() ;  osl->Next())  { 
if  (osl->GetCur ( ) ->GetSelection ( ) -> 

GetSplineSelection 0  =*  ss)  ( 

//  the  spline  was  found  in  the  output  list 


lection ( ) 


if  (!found_l)  { 

found_l  «  true; 

DFDS  -  osl->GetCur () ->GetSelection ( ) ; 

} 

else  ( 

found  2  -  true; 

—  *  • 

) 

TextSelection*  out_label_ts  -  osl->GetCur ( ) ->GetSe- 

->GetTextSelection ( ) ; 

GetCur ( ) ->GetSelection ( ) -> 

RemoveOutputFromPSDL {out_label_ts) ; 

osl->DeleteCur O ; 


//  an  assumption  was  made  that  the  spline  will  not  be  in 

//  the  output  list  more  than  once 

break; 

) 

) 

) 

if  (found_2)  { 

II  the  spline  was  found  in  two  lists  so  we  do  not  need  to  search  the 

//  operator  list  any  longer 


//  remove  the  dfd  spline  selection  that  the  node  was  pointing  to 

delete  DFDS; 
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break; 


) 

) 

if  (found_l  &&  (!found_2))  { 

//  remove  the  dfd  spline  selection  that  the  node  was  pointing  to 

delete  DFDS; 

) 

) 

//  remove  a  self  loop  from  the  operator  selection  list.  Return  the  self 
//  loop's  label  so  that  it  may  be  removed  too. 

void  OperatorSelList: :RemoveSelfLoop(BSplineSelection*  ss)  { 
boolean  found  -  false; 

DFDSplineSelection*  DFDS; 

/ /  search  the  list  of  operators 

for  (First  0;  !AtEnd();  NextO)  ( 

DFDSplineSelList*  sll  =  GetCur () ->GetSelection ( ) ->GetSelfLoop- 

List  0  ; 

II  search  the  operator's  list  of  self  loops 

for  (3ll->First 0 ;  ! sll->AtEnd() ;  sll->Next())  ( 
if  (sll~>GetCur 0 ->GetSelection() ->GetSplineSelection 0  “  ss)  { 

/ /  the  self  loop  was  found 

TextSelection*  label_ts  -  sll->GetCur ( ) ->GetSelection ( ) 

->GetTextSelection  ( ) ; 

GetCur ( ) ->GetSelection () ->RemoveStateFromPSDL (label_ts) ; 
found  =  true; 

DFDS  =  sll->GetCur 0 ->GetSelection 0 ; 
sll->DeleteCur () ; 

/ /  delete  the  dfd  spline  selection  that  the  node  is  pointing  to 

delete  DFDS; 

//  stop  searching  the  list  of  self  loops 

break; 

) 

} 

if  (found) 

/ /  stop  searching  the  list  of  operators 

break; 
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void  OperatorSelList : : AddMETToOperator (TextSelection*  met_ts, 

EllipseSelection*  op)  { 

SetCur (op) ; 
if  (lAtEndO)  ( 

GetCur {) ->GetSelection () ->SetMETSelection (met_ts) ; 

) 

} 

//  Search  list  for  given  spline  in  each  of  operator's  list  of  splines  and 
//  if  found,  place  given  text  (latency)  in  that  node  in  the  list  of 
splines. 


void  OperatorSelList : :AddLatencyToDataFlow (TextSelection*  ts, 

BSplineSelection*  ss) 

boolean  found  -  false; 

for  (First  ();  !AtEnd();  NextO)  ( 

found  -  GetCur 0 ->GetSelection () ->AddLatencyToSplineInList (ts, 

ss)  ; 

if  (found) 
return; 

) 

) 


{ 


//  Given  a  selection,  FindLabel  attempts  to  find  the  label  associated 
//  with  it.  If  the  label  is  nil  or  the  the  selection  is  not  in  the 
//  list,  the  given  selection  is  returned.  This  is  used  by  Editor, 

//  to  select  the  label  of  the  chosen  object.  Nil  could  not  be  returned, 
//  because  this  object  will  used  by  the  chosen  tool 


Selection*  OperatorSelList :: FindLabel (Selection*  sel)  { 

TextSelection*  ts; 

Classid  cid  =  sel->GetClassId () ; 
switch  (cid)  { 
case  OPERATOR: 

for  (First  0;  !AtEnd();  NextO)  { 

if  (GetCur 0 ->GetSelection () ->GetEllipseSelection ( )  ==  sel)  ( 
ts  “  GetCur 0 ->GetSelection 0 ->GetTextSelection () ; 
if  (ts  !=  nil)  ( 
return  ts; 

) 

else  { 

return  sel; 

) 

) 

) 

return  sel; 
breaJc; 

case  DATAFLOW_SPLINE: 

for  (First  0;  !AtEnd();  NextO)  { 

DFDSplineSelList*  il  =  GetCur () ->GetSelection () 
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{ 


->GetInputDFSplineList () ; 
for  (il->Fir3t 0 ;  !il->AtEnd() ;  il->Next())  { 
if  (il->GetCur ( ) ->Get Selection ( ) ->GetSplineSelection ( ) “=sel) 

ts  *=  il->GetCur  () ->GetSelection  ( ) ->GetTextSelection  () 
if  (ts  !-  nil)  ( 
return  ts; 

) 

else  ( 

return  sel; 


) 


} 


{ 


) 

DFDSplineSelList*  ol  -  GetCur () ->GetSelection () 

->GetOutputDFSplineList () ; 
for  (ol->First () ;  !ol->AtEnd{) ;  ol->Next())  { 
if  (ol->GetCur ( ) ->GetSelection { ) ->GetSplineSelection ( ) ==sel ) 

ts  “  ol->GetCur () ->GetSelection () ->GetTextSelection () 
if  (ts  !-  nil)  ( 
return  ts; 

) 

else  ( 

return  sel; 


} 

) 

) 

) 

return  sel; 
brea)c; 

case  SELFLOOP: 

for  (First  0;  !AtEnd();  NextO)  | 

DFDSplineSelList*  sll  -  GetCur () ->GetSelection ( ) 

->GetSelfLoopList  0 ; 

for  (sll->First 0 ;  !sll->AtEnd() ;  sll->Next())  ( 

if  (sll->GetCur () ->GetSelection () ->GetSplineSelection () == 

sel)  { 

ts  -  sll->GetCur () ->GetSelection ( ) ->GetTextSelection ( ) 
if  (ts  !-  nil)  { 
return  ts; 


) 

else  { 

retUi.n  sel; 


) 

) 

) 

) 

return  sel; 
brealc; 
default : 

return  sel; 
brea)c; 
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) 

) 

//  Find  flow  for  given  data  flow's  label 

BSplineSelection*  OperatorSelList : iGetFlow (TextSelection*  ts)  { 
for  (First  0;  lAtEndO;  NextO)  { 

DFDSplineSelList*  il  =  GetCur () ->GetSelection () ->GetInputDFS- 
plineList () ; 

for  (il->First 0 ;  ! il->AtEnd() ;  il->Next())  { 

if  (il->GetCur 0 ->GetSelection () ->GetTextSelection 0  ==  ts)  { 
return  il->GetCur ( ) ->GetSelection ( ) ->GetSplineSelection ( ) ; 

} 

) 

DFDSplineSelList*  ol  - 

GetCur () ->GetSelection () ->GetOutputDFSplineList () ; 
for  (ol->First ( ) ;  ! ol->AtEnd () ;  ol->Next () )  ( 

if  (ol->GetCur()->GetSelection()->GetTextSelection()  ==  ts)  { 
return  ol->GetCur () ->GetSelection ( ) ->GetSplineSelection () ; 

) 

) 

} 

return  nil; 

} 

//  returns  label  of  given  self  loop 

TextSelection*  OperatorSelList: :GetSelfLoopLabel (BSplineSelection*  si)  ( 
for  (First  0;  !AtEnd();  NextO)  { 

DFDSplineSelList*  sll  •=  GetCur  () ->(3etSe.' action  () ->GetSelf Loop- 

List  ()  ; 

for  (sll->First ( ) ;  ! sll->AtEnd ( ) ;  sll->Next())  ( 
if  (sll->GetCur 0 ->GetSelection () ->GetSplineSelection 0  ==  si)  { 
return  sll->GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 

) 

) 

) 

return  nil; 

} 

//  returns  label  of  given  data  flow 

TextSelection*  OperatorSelList : iGetDFLabel (BSplineSelection*  df)  ( 
for  (First  0;  !AtEnd();  NextO)  { 

DFDSplineSelList*  il  = 

GetCur ( ) ->GetSelection ( ) ->GetInputDFSplineList ( ) ; 
for  (il->First();  ! il->AtEnd ( ) ;  il->Next () )  ( 

if  (il->GetCur 0 ->GetSelection 0 ->GetSplineSelection 0  ==  df)  { 
return  il->GetCur () ->GetSelection () ->GetTextSelection () ; 

} 

) 

DFDSplineSelList*  ol  = 

GetCur ( ) ->GetSelection ( ) ->GetOutputDFSplineList ( ) ; 
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for  {ol->First () ;  ! ol->AtEnd() ;  ol->Next())  { 

if  (ol->GetCur 0 ->GetSelection 0 ->GetSplineSelection 0  ==  df  \ 
:.eturn  ol->GetCur  () ->GetSelection  () ->GetTextSelection  O  ; 

) 

) 

) 

return  nil; 


//  returns  latency  of  given  data  flow 

TextSelection*  OperatorSelLiat : :GetDFLatency (BSplineSelection*  df)  { 
for  (First  ();  lAtEndO;  NextO)  ( 

DFDSplineSelList*  il  * 

GetCur ( ) ->GetSelection ( ) ->GetInputDFSplineList ( ) ; 
for  (il->Fir3t 0 ;  ! il->AtEnd ( ) ;  il->Next())  { 

if  (il->GetCur ( ) ->GetSelection () ->GetSplineSelection  ( )  ==  df)  ( 
return  il->GetCur ( ) ->GetSelection ( ) ->GetLatencySelection  ( ) ; 

) 

) 

DFDSplineSelList*  ol  = 

GetCur () ->GetSelection () ->GetOutputDFSplineList  0 ; 
for  (ol->First 0 ;  ! ol->AtEnd ( ) ;  ol->Next())  ( 

if  (ol->GetCur 0 ->GetSelection () ->GetSplineSelection ( )  ==  df)  ( 
return  ol->GetCur  < ) ->GetSelection ( ) ->GetLatencySelection  ( ) ; 

) 

) 

1 

return  nil; 


//  returns  label  of  given  operator 

TextSelection*  OperatorSelList : rGetOperatorLabel (EllipseSelection*  op)  { 
for  (First  ();  lAtEndO;  NextO)  ( 

if  (GetCur 0 ->GetSelection () ->GetEllipseSelection ( )  ==  op)  ( 
return  GetCur ( ) ->GetSelection ( ) ->GetTextSelection ( ) ; 

) 

) 

return  nil; 


//  returns  maximum  execution  time  of  given  operator 

TextSelection*  OperatorSelList : :GetOperatorMET (EllipseSelection*  op)  ( 
for  (First  ();  !AtEnd();  NextO)  ( 

if  (GetCur () ->GetSelection () ->GetEllip3eSelection ()  ==  op)  ( 

return  GetCur ( ) ->GetSelection ( ) ->GetMETSelection ( ) ; 

) 

) 

return  nil; 


288 


II  file  sldfdspline.h 

//  description:  Class  description  of  DFDSplineSelection  class. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  definition  of  dfd  spline  selection  class. 

*  This  header  file  was  created  specifically  for  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  30,  1990 
*/ 

#ifndef  sldfdspline_h 
♦define  sldfdspline_h 

class  BSplineSelection; 
class  TextSelection; 

class  DFDSplineSelection  { 
public : 

DFDSplineSelection (BSplineSelection*)  ; 
“DFDSplineSelection ( )  ; 

void  SetSplineSelection (BSplineSelection* ) ; 
BSplineSelection*  GetSplineSelection ( ) ; 
void  SetTextSelection (TextSelection* ) ; 

TextSelection*  GetTextSelection ()  ; 
void  SetLatencySelection (TextSelection* ) ; 

TextSelection*  GetLatencySelection ( ) ; 

protected: 

BSplineSelection*  splsel; 

TextSelection*  txtsel; 

TextSelection*  latsel; 

); 


//  curve  data  flow  line  or  self  loop 
//  label  of  curved  data  flow  line  or 
//  self  loop 
//  latency  of  data  flow 


♦endif 
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//  file  sldfdspline . c 

//  description:  Iir^lementation  of  DFDSplineSelection  class. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  implementation  of  dfd  spline  selection.  This  represents 

*  curved  data  flows  or  self  loops  and  their  labels. 

*  This  file  was  created  specifically  for  the  graphic  editor 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  30,  1990 
*/ 


♦include  "sldfdspline. h" 

♦include  "slsplines . h" 

♦include  "sltext.h" 

♦include  <I nterViews /Graphic /base .h> 

//  constructor  for  dfd  spline  selection  class 

DFDSplineSelection: :DFDSplineSelection (BSplineSelection*  ss)  { 
splsel  “  ss; 
txtsel  •=  nil; 
latsel  =  nil; 

} 

//  destructor  for  dfd  spline  selection  class 
DFDSplineSelection: : 'DFDSplineSelection ()  { 

/*  delete  splsel; 

delete  txtsel;  */ 

) 

//  set  stored  spline  selection  equal  to  given  spline  selection 

void  DFDSplineSelection :: SetSplineSelection (BSplineSelection*  ss)  ( 
splsel  =  ss; 

} 

//  return  stored  spline  selection 

BSplineSelection*  DFDSplineSelection: :GetSplineSelection ( )  ( 

return  splsel; 

) 

//  set  stored  text  selection  (label)  equal  to  given  text  selection 

void  DFDSplineSelection:  .-SetTextSelection  (TextSelection*  ts)  ( 
txtsel  =  ts; 

) 

//  return  stored  text  selection  (label) 
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TextSelection*  DFDSplineSelection: :GetTextSelection ()  { 

return  txtsel; 

1 

//  set  stored  text  selection  (latency)  equal  to  given  text  selection 

void  DFDSplineSelection: : SetLatencySelection (TextSelection*  ts)  ( 
latsel  =  ts; 

) 

//  return  stored  text  selection  (latency) 

TextSelection*  DFDSplineSelection: :GetLatencySelection ()  { 

return  latsel; 

) 
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//  file  sloperator.h 

//  description:  Class  description  for  OperatorSelection  class. 

/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Add  definition  of  operator  selection  class. 

*  This  header  file  was  specifically  created  for  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  30,  1990 
*! 

tifndef  sloperator_h 
♦define  sloperator_h 

♦include  <InterViews/def s . h> 

class  BSplineSelection; 

//  class  DFDLineSelList; 

//  class  DFDLineSelNode; 
class  DFDSplineSelList; 
class  DFDSplineSelNode; 
class  EllipseSelection; 

//  class  LineSelection; 
class  TextBuffer; 
class  TextSelection; 

class  OperatorSelection  ( 
public : 

OperatorSelection (EllipseSelection*)  ; 

-OperatorSelection ( )  ; 

void  SetEllipseSelection (EllipseSelection* ) ; 

EllipseSelection*  GetEllipseSelection () ; 
void  SetTextSelection (TextSelection* ) ; 

TextSelection*  GetTextSelection ( ) ; 
void  SetMETSelection (TextSelection*) ; 

TextSelection*  GetMETSelection ( ) ; 

//  void  InputDataFlowLineAppend (DFDLineSelNode* ) ; 

//  void  OutputDataFlowLineAppend (DFDLineSelNode* ) ; 

void  InputDataFlowSplineAppend (DFDSplineSelNode* ) ; 
void  OutputDataFlowSplineAppend (DFDSpl i neSelNode* ) ; 
void  Self LoopAppend (DFDSplineSelNode* ) ; 

//  char*  FindLineInList (TextSelection* ,  LineSelection*); 

char*  FindSplineInList (TextSelection*,  BSplineSelection*); 

//  DFDLineSelList*  GetInputDFLineList ( ) ; 

//  DFDLineSelList*  GetOutputDFLineList ( ) ; 

DFDSplineSelList*  GetInputDFSplineList  0 ; 

DFDSplineSelList*  GetOutputDFSplineList ( )  ; 

DFDSplineSelList*  GetSelf LoopList () ; 

//  boolean  FoundLineInLists (LineSelection* ,  LineSelection*); 

boolean  FoundSplineInLists (BSplineSelection* ,  BSplineSelection*) ; 
boolean  FoundSelf LoopInList (BSplineSelection* ,  BSplineSelection* ) ; 
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// 


char*  FoundTextInLists (TextSelection*,  TextSelection* ) ; 
void  FoundSecondTextInLists (char*,  TextSelection*); 
char*  GetPSDLText ( ) ; 

boolean  FindLinelnSecondList (char*,  char*,  LineSelection*) ; 
boolean  FindSplinelnSecondList (char*,  char*,  BSplineSelection* ) ; 
void  SetPSDLText (char*) ; 

boolean  AddLatencyToSplineInList (TextSelection*,  BSplineSelec¬ 
tion*)  ; 

void  RemoveInputFromPSDL (TextSelection*) ; 
void  RemoveOutputFromPSDL (TextSelection*) ; 
void  RemoveStateFromPSDL (TextSelection*)  ; 


protected: 

void  AddOperatorldToPSDL (char*)  ; 
void  AddInputToPSDL 0  ; 
void  AddOutputToPSDL 0 ; 

void  ReplaceInputStringInPSDL(char*,  char*); 
void  ReplaceOutputStringInPSDL(char*,  char*); 
int  Findindex (char**,  int); 

void  ReplaceStateStringInPSDL (char*,  char*); 

void  AddStateToPSDL ( ) ; 

void  AddMETToPSDL (TextSelection*) ; 


EllipseSelection*  elsel; 

TextBuffer*  txb; 

TextSelection*  txtsel; 
TextSelection*  metsel; 

//  DFDLineSelList*  input_df_line_list; 


// 

//  DFDLineSelList* 

// 

DFDSplineSelList 

DFDSplineSelList 

DFDSplineSelList 

); 


output_df_line_list; 
input_df_3pline_list 
output_df_spline_list; 
self loop_list; 


//  operator  drawn  in  DFD 
//  buffer  containing  PSDL 


// 

operator's  label 

// 

operator's  MET 

// 

list 

of  input 

data 

// 

flow 

lines 

// 

list 

of  output 

data 

// 

flow 

lines 

// 

list 

of  input 

data 

// 

flow 

splines 

// 

list 

of  output 

data 

// 

flow 

splines 

// 

list 

of  self  loops 

#endif 
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//  file  sloperator.c 

//  description:  Implementation  of  OperatorSelection  class. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor; 

*  Add  implmentation  of  operator  selection  class.  Each  operator  selection 

*  includes  a  pointer  to  the  ellipse  selection  that  represents  the  oper¬ 
ator, 

*  its  label,  all  input  and  output  dataflows  and  selfloops,  and  a  text 
buffer 

*  containing  all  of  the  generated  PSDL  text. 

*  This  file  was  created  specifically  for  the  graphic  editor. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  August  30,  1990 
*/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"dfd_defs.h” 

"dfdclasses . h" 
"dfdsplinelist . h" 
"istring.h" 

"sldfdspline . h" 

"slellipses . h" 

"sloperator . h" 

"slsplines . h" 

"sltext . h" 

<InterViewa/textbuf fer . h> 
<InterViews/Graphic/base . h> 
<InterViews/regexp. h> 
<InterViews/Std/string. h> 

< Interviews /Std/stdio . h> 
<InterViews/Std/stdlib. h> 


//  constructor  for  operator  selection  class 

OperatorSelection: : OperatorSelection (EllipseSelection*  es)  i 
elsel  =  es; 

txtsel  *  nil;  //  initially,  no  label  is  attached  to  operator 

metsel  =  nil;  //  initially,  no  MET  is  attached  to  an  operator 

//  input_df_line_list  =  new  DFDLineSelList ( ) ; 

//  output_df_line_list  =  new  DFDLineSelList () ; 

input_df_spline_list  •  new  DFDSplineSelList { ) ; 
output_df_spline_list  •  new  DFDSplineSelList () ; 
self loop_list  =  new  DFDSplineSelList () ; 

char*  op_string  «  new  char  [TXTBUFLEN] ;  //  create  initial  PSDL  string 

strcpy (op_string, OPER_TKN)  ; 
strcat (op_string, ID_TKN) ; 
strcat (op_string, "\n")  ; 
strcat (op_string, SPEC_TKN)  ; 
strcat (op_string, DESC_TKN)  ; 
strcat (op_string, TEXT_TKN)  ; 
strcat (op_string, END_TKN) ; 
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txb  “  new  TextBuf fer (op_string, strlen (op_string) , TXTBUFLEN) ; 

) 

//  destructor  for  operator  selection  class 

OperatorSelection: : -OperatorSelection ()  ( 
delete  elsel; 
delete  txtsel; 
delete  metsel; 

//  delete  input_df_line_list; 

//  delete  output_df_line_list; 
delete  input_df_spline_list; 
delete  output_df_spline_list; 
delete  selfloop_list; 

) 

//  Set  stored  ellipse  selection  with  given  ellipse  selection 

void  OperatorSelection: : SetEllipseSelection (EllipseSelection*  es)  { 
elsel  «  es; 

) 

/ /  Return  stored  ellipse  selection 

EllipseSelection*  OperatorSelection: :GetEllipseSelection ()  { 
return  elsel; 

) 

//  Set  stored  text  selection  (label)  with  given  text  selection 

void  OperatorSelection: : SetTextSelection (TextSelection*  ts)  ( 

//  add  operator's  label  to  PSDL 

char*  cs_string; 
if  (ts  !-  nil)  { 

const  char*  copy_string; 
int  len; 

copy_string  =  ts->GetOriginal (len) ; 
ts_string  =  new  char(len+l]; 
strncpy (ts_strin9, copy_string, len) ; 
ts_st ring [len]  =  '\0'; 

) 

else  ( 

ts_string  *=  ID_TKN; 

) 

AddOperatorldToPSDL (ts_string)  ; 
txtsel  “  ts; 

1 

//  return  stored  text  selection  (label) 
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TextSelection*  OperatorSelection : :GetTextSelection ()  { 

return  txtsel; 

) 

//  Lines  no  longer  used,  use  splines  instead 
/*  *****  start  of  Commented  Out  Code  ***** 

II  append  given  dfd  line  to  list  of  input  data  flow  lines 
void  OperatorSelection: : InputDataFlowLineAppend (DFDLineSelNode*  dfdlsn) 
AddInputToPSDL ( ) ; 

input_df_line_list->Append (dfdlsn) ; 

) 

//  append  given  dfd  line  to  list  of  output  data  flow  lines 

void  OperatorSelection: : OutputDataFlowLineAppend (DFDLineSelNode*  dfdlsn) 

{ 

AddOutputToPSDL ( ) ; 

output_df_line_list->Append (dfdlsn) ; 

) 

*****  End  of  Commented  Out  Code  *****  •/ 

//  append  given  dfd  spline  to  list  of  input  data  flow  splines 

void  OperatorSelection: : InputDataFlowSplineAppend (DFDSplineSelNode* 
dfdssn)  { 

AddInputToPSDL ( ) ; 

input_df_spline_list->Append (dfdssn) ; 

) 

//  append  given  dfd  spline  to  list  of  output  data  flow  splines 

void  OperatorSelection: : OutputDataFlowSpli neAppend (DFDSplineSelNode* 
dfdssn)  ( 

AddOutputToPSDL ( )  ; 

output_df_spline_list->Append (dfdssn)  ; 

) 

//  append  given  dfd  spline  to  list  of  self  loops 

void  OperatorSelection :: Self LoopAppend (DFDSplineSelNode*  dfdssn)  1 
AddStateToPSDLO  ; 
self loop_list->Append (dfdssn) ; 

) 

/*  *****  Start  of  Commented  Out  Code  ***** 

//  search  the  lists  of  input  and  output  data  flow  lines  to  find  given 
//  line  selection.  If  found,  replace  its  label  with  given  text  selection. 


296 


//  Return  the  name  of  the  string  in  PSDL  for  the  former  label; 

char*  OperatorSelection: iFindLineInList (TextSelection*  ts, 

LineSelection*  Is)  { 

const  char*  copy_string; 
char*  old_string  -  nil; 
char*  new_string; 

TextSelection*  oldts; 
input_df_line_list->SetCur (Is)  ; 
if  ( ! input_df_line_list->AtEnd ( ) )  ( 

oldts  -  input_df_line_list->GetCur ( ) ->GetSelection ( ) -> 

Get TextSelection  ( ) ; 

if  (oldts  --  nil)  ( 

old_string  =  "<input  id>"; 

) 

else  ( 

int  len; 

copy_string  -  oldts-><3et0riginal  (len)  ; 
old_3tring  -  new  char[len+l]; 
strncpy (old_string, copy_string, len) ; 
old_string[len]  =  '\0'; 

) 

int  lenl; 

copy_3tring  -  t3->Get0riginal (lenl) ; 
new_string  ■  new  char[lenl  +  1]; 
strncpy (new_string, copy_string, lenl ) ; 
new_string[lenll  «  '\0'; 

printf("new  string  is  %s\n",  new_string) ; 
ReplaceInputStringInPSDL (old_string,  new_string) ; 
input_df_line_list->GetCur () ->GetSelection () ->SetTextSelec- 
tion (ts) ; 

) 

else  i 

output_df_line_list->SetCur (Is) ; 
if  ( !output_df_line_list->AtEnd() )  ( 

oldts  =  output_df_line_list->GetCur ( ) ->GetSelection ( ) 

->GetTextSelection ( ) ; 

if  (oldts  ==  nil)  { 

old_string  =  "<output  id>"; 

) 

else  { 

int  len; 

copy_string  “  oldts->GetOriginal (len) ; 
old_3tring  *  new  char [len  +  1); 
strncpy (old_string, copy_string, len) ; 
old_st ring [len]  -  '\0'; 

1 

int  lenl; 

copy_string  -  ts->GetOriginal (lenl ) ; 
new_string  =  new  char[lenl  +  1); 
strncpy (new_string, copy_string, lenl ) ; 
printf("new  string  is  %3\n",  new_3tring) ; 
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new_string[lenl]  =  '\0'; 

ReplaceOutputStringInPSDL (old_string,  new_string) ; 
output_df_line_list->GetCur 0 ->GetSelection  0 ->SetTextSelec- 

tion (ts) ; 

) 

) 

if  (old_string  —  "<output  id>")  { 
old_string  «  "<input  id>''; 

) 

else  { 

if  (old_string  -=  "<input  id>")  { 
old_string  -  "<output  id>"; 

) 

) 

return  old_3tring; 

) 

*****  End  of  Commented  Out  Code  *****  */ 

//  Search  lists  of  self  loops,  input  and  output  data  flow  splines  to  find 
//  given  spline  selection.  If  found,  replace  its  label  with  given  text 
//  selection.  Return  the  string  in  PSDL  for  the  former  label. 

char*  OperatorSelection: :FindSplineInList (TextSelection*  ts, 

BSplineSelection*  ss)  { 

char*  old_string  «  nil; 
const  char*  copy_string; 
char*  new_string  *  nil; 

TextSelection*  oldts; 
self loop_list->SetCur (ss)  ; 
if  { ! selfloop_list->AtEnd () )  { 

oldts  *  selfloop_list->GetCur 0 ->GetSelection 0 

->GetTextSelection () ; 

if  (oldts  ==  nil)  { 

old_string  «  ID_TKN; 

1 

else  { 

int  len; 

copy_string  =  oldts->GetOriginal (len) ; 
old_string  =  new  char[len+l); 
strncpy (old_string, copy_string, len) ; 
old_st ring [len]  =  '\0'; 

) 

int  len7; 

copy_string  =  ts->GetOriginal (len7) ; 
new_string  »  new  char[len7  +  1]; 
strncpy (new_string, copy_string, len7) ; 
new_string[len7]  =  '\0'; 

ReplaceStateStringInPSDL (old_string,  new_string) ; 
selfloop_list->GetCur () ->Get Select ion ( ) ->SetText Select ion (ts)  ; 

) 

else  ( 

input_df_spline_list->SetCur (ss) ; 
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) 


if  ( ! input_df_spline_list->AtEnd() )  { 

oldts  “  input_df_3pline_list->GetCur ( ) ->GetSelection ( ) 

->GetTextSelection ( ) ; 

if  (oldts  -=  nil)  ( 

old_string  ■=  ID_TKN; 

) 

else  ( 

int  len; 

copy_3tring  -  oldts->GetOriginal (len) ; 
old_string  -  new  char  [len+l]; 
strncpy (old_3tring, copy_string,  len)  ; 
old_string [len]  -  '\0'; 

} 

int  lenl; 

copy_3tring  -  t3->Get0riginal (lenl) ; 
new_string  -  new  char [lenl  +  1]; 
strncpy (new_3tring, copy_string, lenl ) ; 
new_string [lenl ]  -  '\0'; 

ReplaceInputStringInPSDL (old_string,  new_3tring) ; 
input_df_3pline_list->GetCur () ->GetSelection ( ) -> 

SetTextSelection  (ts) ; 


) 


) 

else  { 

output_df_spline_list->SetCur (ss) ; 
if  ( ! output_df_spline_list->AtEnd ( ) )  { 

oldts  -  output_df_spline_list->GetCur 0 ->GetSelection 0 
->GetTextSelection ( ) ; 
if  (oldts  “=  nil)  { 

old_string  =  ID_TKN; 

) 

else  ( 

int  len; 

copy_string  =  oldts->GetOriginal (len) ; 
old_string  =  new  char  [len  +  1]; 
strncpy (old_3tring, copy_string, len) ; 
old_string[len]  «  '\0'; 

) 

int  lenl; 

copy_string  =  t3->Get0riginal  (lenl ) ; 
new_string  =  new  char [lenl  +  1]; 
strncpy (new_string, copy_string, lenl ) ; 
new_string[lenl  J  •=  ' \0' ; 

ReplaceOutputStringInPSDL (old_string,  new_string) ; 
output_df_spline_list->GetCur ( ) ->GetSelection ( ) -> 

SetTextSelection (ts) 


) 


) 


return  old_string; 


/*  *****  start  of  Commented  Out  Code  ***** 
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//  Return  stored  list  of  input  data  flow  lines 

DFDLineSelList*  OperatorSelection: iGetInputDFLineList ()  { 

return  input_df_line_list; 

1 

//  Return  stored  list  of  output  data  flow  lines 

DFDLineSelList*  OperatorSelection: iGetOutputDFLineList ()  { 
return  output_df_line_list; 

} 

*****  End  of  Commented  Out  Code  *****  */ 

II  Return  stored  list  of  input  data  flow  splines 

DFDSplineSelList*  OperatorSelection: :GetInputDFSplineList ( )  { 
return  input_df_spline_list; 

} 

//  Return  stored  list  of  output  data  flow  splines 

DFDSplineSelList*  OperatorSelection; :GetOutputDFSplineList ( )  { 

return  output_df_spline_list; 

) 

//  Return  stored  list  of  self  loops 

DFDSplineSelList*  OperatorSelection: iGetSelfLoopList ( )  i 
return  self loop_list; 

) 

/*  *****  start  of  Commented  Out  Code  ***** 

//  Find  given  line  (replacee)  in  list  of  input  and  output  data  flow 
//  lines.  If  found,  replace  it  with  replacer. 

boolean  OperatorSelection: :FoundLineInLists (LineSelection*  replacee, 

LineSelection*  replacer)  { 

boolean  found  =  false; 

DFDLineSelList*  ill  =  GetInputDFLineList () ; 

for  (ill->First ( ) ;  ! ill->AtEnd ( )  &&  ! found;  ill->Next())  ( 

if  (ill->GetCur ( ) ->GetSelection () ->GetLineSelection ( )  ==  replacee) 

found  •=  true; 

ill->GetCur ( ) ->GetSelection () ->SetLineSelection (replacer) ; 

) 

) 

DFDLineSelList*  oil  =  GetOutputDFLineList ( )  ; 

for  (oll->First ( ) ;  ! oll->AtEnd ( )  &&  ! found;  oll->Next())  i 

if  (oll->GetCur ( ) ->GetSelection ( ) ->GetLineSelection  ( )  ==  replacee) 
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{ 


) 


found  *  true; 

oll->GetCur () ->GetSelection () ->SetLineSelection (replacer) ; 

} 

) 

return  found; 

*****  End  of  Commented  Out  Code  *****  */ 


II  Search  for  given  spline  selection  (replacee)  in  list  of  input  and  output 
//  data  flow  splines.  If  found,  replace  it  with  replacer. 

boolean  OperatorSelection: :FoundSplineInLists (BSplineSelection*  repla¬ 
cee, 

BSplineSelection*  replacer)  ( 

boolean  found  •  false; 

DFDSplineSelList*  isl  =  GetInputDFSplineList () ; 

for  (isl->First  ()  ;  !isl->AtEnd()  &&  '.found;  isl->Next())  { 

if  (isl->GetCur 0 ->GetSelection()->GetSplineSelection()  ==  repla¬ 
cee)  { 

found  “  true; 

isl->GetCur () ->GetSelection ( ) ->SetSplineSelect ion (replacer) ; 

} 

) 


DFDSplineSelList*  osl  =  GetOutputDFSplineList ( )  ; 

for  (osl->First  ( ) ;  ! osl->AtEnd ()  ! found;  osl->Next())  ( 

if  (osl->GetCur()->GetSelection()->GetSplineSelection()  repla¬ 
cee)  { 

found  =  true; 

osl->GetCur  0 ->Get Selection () ->SetSplineSelection (replacer) ; 

1 

) 

return  found; 

1 

//  Search  for  given  spline  selection  (replacee)  in  list  of  self  loops. 

II  If  found,  replace  it  with  replacer. 

boolean  OperatorSelection: : FoundSelfLoopInList (BSplineSelection*  repla¬ 
cee, 

BSplineSelection*  replacer)  ( 

boolean  found  •  false; 

DFDSplineSelList*  sll  =  GetSelf LoopList ( )  ; 

for  (sll->First () ;  ! sll->AtEnd ( )  &S  ! found;  sll->Next())  { 

if  (sll->GetCur () ->GetSelection () ->GetSplineSelection 0  =-=  repla¬ 
cee)  { 

found  =  true; 

sll->GetCur () ->GetSelection ( ) ->SetSplineSelection (replacer) ; 

) 

) 

return  found; 
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) 


//  Search  for  given  text  selection  (replacee)  in  all  lists  attached 
II  to  operator.  If  found,  replace  it  with  replacer. 

char*  OperatorSelection: : FoundTextInLists (TextSelection*  replacee, 

TextSelection*  replacer)  { 

boolean  found  “  false; 
int  len; 

const  char*  tmp  ”  replacee->GetOriginal (len) ; 
char*  old_string  =  new  char[len+l]; 
strncpy (old_string, tmp, len) ; 
old_string[len]  -  '\0'; 
char*  new_3tring; 
if  (replacer  !-  nil)  { 

tirp  “  replacer->GetOriginal  (len)  ; 
new_string  =  new  char[len+l); 
strncpy (new_string, tmp, len) ; 
new_st ring [len]  -  '\0'; 

) 

else  { 

new_string  1D_TKN; 


f  it  it  it  it  it  it 


start  of  Commented  Out  Code  ***** 


for  (input_df_line_list->First  () ;  . input__df_line_li  .t->AtEnd()  && 

! found; 

input_df_line_list->Next ( ) )  ( 
if  (i  nput_df_lint  list->OetCur () ->GetSelection ( ) ->GetTextSelec- 


tion ( ) 


=*=  replacee)  { 

found  =  true; 

input_df_line_list->GetCur () ->GetSelection ( ) -> 

SetTextSelection (replacer) ; 


for  (output_df_line_list->First () ;  ! output_df_line_list->AtEnd ( )  && 

! found; 

output_df_line_list->Next ( ) )  ( 

if  (output_df_line_list->GetCur () ->GetSelection ( ) ->GetTextSelec- 


tion ( ) 


==  replacee)  ( 

found  “  true; 

output_df_line_list->GetCur ( ) ->GetSelection ( ) -> 

SetTextSelection (replacer) ; 


*****  End  of  Commented  Out  Code  *****  */ 
Classid  cid  “  replacee->GetClasEld ( ) ; 
switch  (cid)  ( 
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case  LABEL_DF: 

for  (input_df_3pline_li3t->Fir3t 0  ;  ! input_df_3pline_list->AtEnd ( ) 

&&  ! found;  input_df_3pline_li3t->Next ( ) )  { 
if  (input_df_3pline_li3t->GetCur ( ) ->GetSelection ( ) 
->GetTextSelection  ( )  =•=  replacee)  { 
found  “  true; 

ReplaceInputStringInPSDL (old_3tring, new_string) ; 
input_df_3pline_li3t->GetCur ( ) ->GetSelection ( ) -> 

SetTextSelection (replacer) ; 


) 


) 


fc;.  (output_df_spline_list->Fir3t  () ;  !  output_df_spline_list- 

>AtEnd ( ) 


£&  ! found;  output_df_3pline_li3t->Next ( ) )  ( 
if  (output_df_3pline_li3t->GetCur 0 ->GetSelection() 

->(3etTextSelection  ()  ==  replacee)  { 

found  -  true; 

ReplaceOutputStringInPSDL (old_3tring, new_3tring) ; 
output_df_spline_li3t~>GetCur ( ) ->GetSelection ( ) -> 

SetTextSelection (replacer) ; 

) 

) 

if  (found)  { 

return  old_3tring; 

) 

else  ( 

return  nil; 

) 

brea)c; 

case  IiAT_DF: 

for  (input_df_spline_list->First ( ) ;  ! input_df_spline_list->AtEnd ( ) 

&&  ! found;  input_df_spline_list->Next ( ) )  ( 
if  (input_df_spline_list->GetCur ( ) ->GetSelection ( ) 

->GetLatencySelection  ( )  ==  replacee)  ( 
found  =  true; 

input_df_spline_list->GetCur ( ) ->GetSelection ( ) -> 

SetLatencySelection (replacer) ; 

) 

) 


for  (output_df_spline_list->First () ;  ! output_df_spline_list- 

>AtEnd ( ) 


S&  ! found;  output_df_spline_list->Next ( ) ) 
if  (output_df_spline_list->GetCur ( ) ->GetSelection ( ) 

->GetLatencySelection ( )  ==  replacee) 

found  «  true; 

output_df_3pline_list->GetCur ( ) ->GetSelection ( ) -> 

SetLatencySelection (replacer) ; 

) 

} 

if  (found)  ( 


( 

( 
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) 


return  old_3tring; 

) 

else  { 

return  nil; 


break; 

case  LABEL_SL: 

for  (selfloop_list->First () ;  !selfloop_list->AtEnci()  &&  ! found; 

self loop_list->Next () )  { 

if  {selfloop_list->GetCur () ->GetSelection () ->GetTextSelection  () 

—  replacee)  { 


) 


found  “  true; 

ReplaceStateStringInPSDIi  (old_string, new_string) ; 
self loop_list->GetCur ( ) ->GetSelection { ) -> 

SetTextSelection (replacer) ; 


) 

if  (found)  { 

return  old_string; 

) 

else  { 


return  nil; 


} 

break; 


) 

return  nil; 


//  to  update  the  PSDL  for  the  second  operator  the  data  flow  is  attached  to, 
//  this  function  will  update  only  the  PSDL 


void  OperatorSelection: :FoundSecondTextInLists (char*  old_string, 

TextSelection*  new_ts)  { 

boolean  found  =  false; 
int  len; 

char*  new_string; 
if  (new_ts  !-  nil)  { 

const  char*  tmp  =  new_ts->GetOriginal (len)  ; 
new_string  •=  new  char[len+l]; 
strncpy (new_string, tmp, len) ; 
new_st ring  [len]  •=  '\0'; 

) 

else  { 

new_string  -  ID_TKN; 

) 

for  (input_df_spline_list->First ( ) ;  ! input_df_spline_list->AtEnd ( ) ; 

input_df_spline_list->Next () )  { 

if  (input_df_spline_list->GetCur () ->GttSelection ( ) 

->GetTextSelection ( )  -=  new_ts)  { 

found  =  true; 
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ReplaceInputStringInPSDL (old_string,  new_string) ; 

) 

) 

for  (output_df_spline_list->First { ) ;  ! output_df_spline_list->AtEnd ( ) 

&&  ! found;  output_df_spline_list->Next ( ) )  { 

if  (output_df_spline_list->GetCur ( ) ->GetSelection ( ) 

->GetTextSfelection ()  “  new_ts)  { 

found  “  true; 

ReplaceOutputStringInPSDL (old_string, new_string) ; 

} 

) 

) 

//  Add  operator  id  (label)  to  the  PSDL  that  represents  the  operator 

void  OperatorSelection: :AddOperatorIdToPSDL (char*  ts_string)  { 
int  index  «  txb->ForwardSearch (new  Regexp (OPER_TKN) , 0) ; 
if  (index  >-  0)  ( 

//  delete  stored  label  and  replace  it  with  new  label 

int  end_index  =  txb->EndOfLine (index) ; 
txb->Delete (index, end_index-index)  ; 
char*  fixed_atring  -  RemoveBadChars (ts_string) ; 
txb->Inaert (index, fixed_string, strlen (fixed_string) ) ; 

) 

) 

//  Extract  PSDL  text  from  buffer 

char*  OperatorSelection: :GetPSDLText ()  { 
const  char*  text  =  txb->Text(); 
int  len  *  txb->Length ( ) ; 
char*  result  =  new  char [len  +  1]; 
strncpy (result, text, len) ; 
result [len]  =  '\0'; 
return  result; 


//  Add  input  parameter  of  operator  to  psdl 

void  OperatorSelection: :AddInputToPSDL()  [ 
char*  spec_string; 

int  index  -  txb->ForwardSearch (new  Regexp (INPUT_SCH_TKN) , 0) ; 
if  (index  <  0)  { 

//  INPUT  not  found,  place  after  SPECIFICATION 

int  indexl  •>  txb->ForwardSearch (new  Regexp (SPEC_SCH_TKN) , 0) ; 
if  (indexl  >-  0)  [ 

spec_string  -  new  char [strlen (I NPUT_TKN)  + 
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strlen(TYPE_DECL_TKN)  +  2]; 
strcpy (spec_string, INPUT_TKN) ; 
atrcat (spec_string, TYPE_DECL_TKN) ; 
street (spec_3tring, "\n") ; 

txb->Insert (indexl  +  1,  spec_string,  strlen (spec_string) ) ; 

) 

else  ( 

spec_string  -  new  char [strlen (TYPE_DECL_TKN)  +  3] ; 
strcpy (spec_string, TYPE_DECL_TKN) ; 
streat (spec_string, ", \n") ; 

txb->Insert (index  +  1,  spec_3tring,  strlen (spec_st ring) ) ; 

) 

) 

//  add  output  parameter  to  operator's  psdl 

void  OperatorSelection: :AddOutputToPSDL{)  ( 
char*  spec_string; 

int  index  -  txb->ForwardSearch (new  Regexp (OUTPUT_SCH_TKN) ,  0); 
if  (index  <  0)  { 


// 


// 


// 


OUTPUT  not  found,  place  after  INPUT 


int  indexl  “  txb->Search (new  Regexp (I NPUT_SCH_TKN) , 

TXTBUFLEN) ; 


if  (indexl  <  0)  { 


0,  TXTBUFLEN, 


INPUT  not  found,  place  after  SPECIFICATION 

int  index2  *  txb->ForwardSearch (new  Regexp (SPEC_SCH_TKN) ,  0); 
if  (index2  >-  0)  { 

spec_string  «  new  char [strlen (OUTPUT_TKN)  + 

strlen (TYPE_DECL_TKN)  +  2]; 
strcpy (spec_string,OUTPUT_TKN) ; 
streat (spec_string, TyPE_DECL_TKN) ; 
streat (spec_string, "\n")  ; 

txb->Insert (index2  +  1,  spec_string,  strlen (spec_string) ) ; 

} 

) 

else  { 


found  INPUT,  have  to  find  proper  place  to  put  OUTPUT  after  that 


char*  string_array [ J  -  {GEN_SCH_TKN, STATES_SCH_TKN, EX- 
CEPT_SCH_TKN, 

MET_SCH_TKN , MCP_SCH_TKN , MRT_SCH_TKN , 
KEY_SCH_TKN, DESC_SCH_TKN, AX_SCH_TKN, 
END_SCH_TKN} ; 

int  index3  -  Findindex (string_array, 10) ; 
if  (index3  >=  0)  { 

spec_string  «  new  char [strlen (OUTPUT_TKN)  + 
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3trlen(TyPE_DECL_TKN)  +  2] ; 
strcpy (spec_string, OUTPUT_TKN) ; 
strcat  (sp>ec_string,TYPE_DECL_TKN)  ; 
strcat (3pec_atring, "\n") ; 

txb->In3ert (index3,  spec_string,  atrlen (3pec_string) ) ; 

) 

) 

) 

else  { 

spec_string  -  new  char [strlen (TYPE_DECL_TKN)  +  3]; 
strcpy (spec_string, TYPE_DECL_TKN) ; 
strcat (3pec_string, ", \n") ; 

txb->Insert (index  +  1,  spec_string,  strlen (spec_string) ) ; 

) 

) 

//  replace  old  string  in  input  portion  of  the  PSDL  text  buffer  with 
//  the  new  string 

void  OperatorSelection: : ReplaceInputStringInPSDL (char*  old_string, 

char*  new_string)  { 

int  start_index  -  txb->Search (new  Regexp (I NPUT_SCH_TKN) ,  0,  TXTBUFLEN 

TXTBUFLEN) 

char*  old_f ixed_string  «  RemoveBadChars (old_string)  ; 
if  (start_index  >•  0)  { 

char*  string_array []  -  {OUTPUT_SCH_TKN, GEN_SCH_TKN, STATES_SCH_TKN 

EXCEPT_SCH_TKN, 

MET_SCH_TKN, MCP_SCH_TKN, MRT_SCH_TKN, 
KEY_SCH_TKN, DESC_SCH_TKN, AX_SCH_TKN, 
END_SCH_TKN}; 

int  end_index  -  Findindex (string_array, 11) ; 
if  (end_index  >-  3tart_index)  ( 

int  index  =  txb->Search (new  Regexp (old_f ixed_string) ,  start_in 

dex, 

end_index  -  start_index  +  1,  end_index) 

if  (index  >=  0)  { 

txb->Delete (index,  strlen (old_f ixed_string) ) ; 
char*  fixed_string  *  RemoveBadChars (new_string) ; 
txb->Insert (index,  fixed_string,  strlen (fixed_string) ) ; 

) 

} 

) 

) 

//  replace  old  string  in  output  portion  of  the  PSDL  text  buffer  with 
//  the  new  string 

void  OperatorSelection: : ReplaceOutputStringInPSDL (char*  old_string, 

char*  new_string)  { 

int  start_index  =  txb->Search (new  Regexp (OUTPUT_SCH_TKN) ,  0,  TXTBU¬ 
FLEN, 

TXTBUFLEN) 

char*  old_f ixed_string  «  RemoveBadChars (old_string); 
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if 


dex. 


) 


) 


(start_index  >-  0)  { 

char*  string_array []  -  {GEN_SCH_TKN, STATES_SCH_TKN, 

EXCEPT_SCH_TKN, 

MET_SCH_TKN, MCP_SCH_TKN, MRT_SCH_TKN, 
KEY_SCH_TKN, DESC_SCH_TKN, AX_SCH_TKN, 
END_SCH_TKN) ; 

int  end_index  -  Findindex (string_array, 10) ; 
if  (end_index  >-  start_index)  ( 

int  index  -  txb->Search (new  Regexp (old_f ixed_string) ,  start_in- 

end_index  -  start_index  +  1,  end_index) ; 

if  (index  >-  0)  { 

txb->Delete (index,  strlen (old_fixed_string) ) ; 
char*  f ixed_string  «  RemoveBadChars (new_string) ; 
txb->Insert (index,  f ixed_string,  strlen (fixed_string) ) ; 

) 

I 


/*  *****  Start  of  Commented  Out  Code  ***** 


//  find  second  occurrence  of  line  in  the  list  in  order  to  properly  update 
//  the  operator's  PSDL 

boolean  OperatorSelection: :FindLineInSecondList (char*  old_string, 

char*  new_string, 
LineSelection*  Is)  { 

input_df_line_list->SetCur (Is) ; 
if  ( !input_df_line_list~>AtEnd() )  ( 

printf ("new_string  is  %s\n",  new_string) ; 
ReplaceInputStringInPSDL (old_string, new_string) ; 
return  true; 

) 

else  ( 

output_df_line_list->SetCur (Is) ; 
if  ( ! output_df_line_list->AtEnd() )  i 

printf ("new  string  is  %s\n",  new_string) ; 
ReplaceOutputStringInPSDL (old_string, new_string) ; 
return  true; 

) 

) 

return  false; 

) 

*****  End  of  Commented  Out  Code  *****  */ 


//  find  second  occurrence  of  spline  in  the  list  in  order  to  properly  update 
//  the  operator's  PSDL 

boolean  OperatorSelection: : FindSplinelnSecondList (char*  old_string, 

char*  new_string, 
BSplineSelection*  ss)  { 
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input_df_3pline_list->SetCur (ss) ; 
if  ( ! input_df_3pline_list->AtEnd {) )  { 

ReplaceInputStringInPSDL (old_3tring, new_3tring) ; 
return  true; 

} 

el3e  { 

output_df_3pline_li3t->SetCur (ss) ; 
if  ( ! output_df_3pline_li3t->AtEnd() )  { 

ReplaceOutputStringInPSDL (old_3tring, new_3tring) ; 
return  true; 

) 

) 

return  falae; 

} 

void  OperatorSelection: : SetMETSelection (TextSelection*  met_ts)  { 
AddMETToPSDL(met_t3) ; 
metael  -  inet_t3; 

) 

//  return  atored  maximum  execution  time 

TextSelection*  OperatorSelection; :GetMETSelection ()  ( 

return  metael; 

) 

//  search  through  text  buffer  to  find  place  where  one  of  the  string  array 
//  elements  are  located 

int  OperatorSelection :: Findlndex (char**  string_array ,  int  size)  { 
int  index; 

for  (int  i  =  0;  i  <  size;  ++i>  { 

index  =  txb->Search (new  Regexp (string_array [i] ) ,  0,  TXTBUFLEN, 

TXTBUFLEN) ; 

if  (index  >=  0)  ( 

return  index; 

) 

) 

return  -1; 

1 

//  set  psdl  text  buffer  to  contents  of  given  string 

void  OperatorSelection :: SetPSDLText (char*  text)  { 
if  (txb  !«  nil) 
delete  txb; 

txb  “  new  TextBuf fer (text,  strlen (text) ,  TXTBUFLEN); 

) 

//  add  the  latency  of  the  data  flow  to  the  data  flow  found  in  the  input 
//or  output  list 
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boolean  OperatorSelection: : AddLatencyToSplineInList (TextSelection*  la¬ 
tency, 

BSplineSelection*  ss)  { 

for  (input_df_spline_list->Fir3t () ;  ! input_df_spline_li3t->AtEnd ( ) ; 

input_df_spline_list->Next ( ) )  { 
if  (input_df_spline_list->GetCur ( ) ->G€tSelection ( ) 
->GetSplineSelection 0  ss)  { 

input_df_spline_list->GetCur () ->G€tSelection () 
->SetLatencySelection (latency) ; 

return  true; 

) 

) 

for  (output_df_spline_list->First () ;  ! output_df_spline_list->AtEnd ( ) ; 

output_df_spline_list->Next ( ) )  { 
if  (output_df_spline_list->GetCur ( ) ->GetSelection ( ) 
->GetSplineSelection 0  —  ss)  ( 
output_df_spline_list->GetCur ( ) ->GetSelection  ( ) 
->SetLatencySelection (latency) ; 

return  true; 

) 

) 

return  false; 

) 

//  add  state  parameter  to  operator's  psdl 

void  OperatorSelection: :AddStateToPSDL()  ( 
char*  spec_string; 

char*  string_array []  «  {GEN_SCH_TKN, EXCEPT_SCH_TKN, 

met_sch3kn,  MCP_SCH_TKN,  MRT_SCH_TKN, 
KEY_SCH_TKN,  DESC_SCH_TKN,  AX__SCH_TKN, 
END_SCH_TKN ) ; 

int  index3  =  Findindex (string_array, 9) ; 
if  (index3  >«  0)  ( 

txb->Insert (index3,  ST_TKN,  strlen (ST_TKN) ) ; 

) 

) 


//  replace  old  string  in  state  portion  of  the  PSDL  text  buffer  with 
//  the  new  string 


void  OperatorSelection: : ReplaceStateStringInPSDL (char*  old_string, 

char*  new_string)  { 

int  start_index  •  txb->Search (new  Regexp (STATES_SCH__TKN) ,  0,  TXTBU- 
FLEN,  ~ 


if 


TXTBUFLEN) ; 

(start_index  >-  0)  ( 

char*  string_array []  -  { GEN_SCH_TKN,  EXCEPT_SCH_TKN, 

MET_SCH_TKN, MCP_SCH_TKN, MRT_SCH_TKN, 
KEy_SCH_TKN, DESC_SCH_TKN, AX_SCH_TKN, 
END_SCH_TKN )  ; 

int  end_index  =  Findindex (string_array, 9); 
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dex. 


) 

) 


if  (end_index  >=  start_index)  { 

char*  old_fixed_string  =  RemoveBadChars (old_string) ; 
int  index  -  txb->Search (new  Regexp (old_fixed_string) ,  start_in 

end_index  -  3tart_index  +  1,  end_index) 

if  (index  >-  0)  { 

txb->Delete (index,  strlen (old_f ixed_string) ) ; 
char*  fixed_string  =  RemoveBadChars (new_string) ; 
txb->Insert (index,  fixed_string,  strlen (fixed_string) ) ; 

} 

} 


//  add  MET  parameter  to  operator's  psdl 


void  OperatorSelection : : AddMETToPSDL (TextSelection*  ts)  { 
char*  new_string; 
if  (ts  !“  nil)  ( 
int  len; 

const  char*  temp_string  =  ts->(5etOriginal  (len)  ; 
new_string  •  new  char[len  +  1); 
strncpy (new_string, temp_string,  len)  ; 
new_string [len]  -  '\0'; 

) 

int  index  -  txb->ForwardSearch (new  Regexp (MET_SCH_TKN) ,  0); 
if  (ts  !-  nil)  { 

if  (index  <  0)  ( 

char*  spec_string; 

char*  string_array []  «  [MCP_SCH_TKN,MRT_SCH_TKN, 

KEy_SCH_TKN, DESC_SCH_TKN, AX_SCH_TKN, 
END_SCH_TKN )  ; 

int  index3  Findindex  (string_array,  6) ; 
if  (index3  >=  0)  { 

spec_string  -  new  char [strlen (MET_TKN)  + 

strlen (new_string)  +  2) 

strcpy (spec_string,  MET_TKN) ; 
strcat  (spec_string,  new_striiig)  ; 
strcat (spec_string,  "Nn"); 

txb->Insert (index3,  spec_string,  strlen (spec_string) ) ; 

) 

1 

else  { 

int  end_index  «  txb->EndOf Line (index) ; 
txb->Delete (index,  end_index  -  index); 
txb->Insert (index,  new_string,  strlen (new_string) ) ; 

) 

) 

else  { 

if  (index  >=  0)  [ 

int  start_line_index  =  txb->BeginningOf Line (index) ; 
int  end  line  index  -  txb->EndOf Line (index); 
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) 


) 


txb->Delete (start  line  index, end  line_index  -  start_line_index 


//  Remove  input  type  declaration  from  PSDL 


void  OperatorSelection: :RemoveInputFromPSDL (TextSelection*  ts)  { 
char*  id; 
if  (ts  !-  nil)  { 
int  len; 

const  char*  tir^  -  ts->GetOriginal  (len)  ; 
id  -  new  char[len  +1]; 
strncpy (id, tmp, len) ; 
idllen]  -  '\0'; 


) 

else  ( 

id  -  ID_TKN; 

) 

char*  fixed_id  -  RemoveBadChars (id) ; 

int  start_index  «  txb->Search (new  Regexp (INPUT_SCH_TKN) ,  0, 

TXTBUFLEN,  TXTBUFLEN) ; 

if  (atart_ind^  -  0)  { 

char*  str’ ;  g_array[]  -  {OUTPUT_SCH_TKN,  GEN_SCH_TKN, 

STATES_SCH_TKN,  EXCEPT_SCH_TKK, 
MET_SCH_TKN,  MCP_SCH_TKN, 

MRT_SCH_TKN,  KEY_SCH_TKN, 

DESC_SCH_TKN,  AX_SCH_TKN, 

END_SCH_TKN)  ; 

int  end_index  ■  Findlndex {3tring_array,  11); 
if  (end_index  >  start_index)  { 

int  index  -  txb->Search (new  Regexp (fixed_id) ,  start_index, 

end_ index  -  start_index  +  1, 
end_index) ; 

if  (index  >«  0)  { 

int  end_line_index  =  txb->EndOfLine (index) ; 

int  start_line_index  -  txb->BeginningOf Line (index) ; 

txb->Delete (start_line_index, 

end_line_index  -  start_line_index  +  1); 

) 

) 

) 


) 


//  Remove  output  type  declaration  from  PSDL 

void  OperatorSelection :: RemoveOutputFromPSDL (TextSelection*  ts)  { 
char*  id; 
if  (ts  !=  nil)  { 
int  len; 

const  char*  tmp  -  ts->GetOriginal (len) ; 
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id  -  new  char[len  +  1]; 
strncpy  (id,  len)  ; 
id[len]  -  '\0'; 


) 

else  ( 

id  -  ID_TKN; 

) 

char*  fixed_id  “  RemoveBadChars (id) ; 

int  3tart_index  -  txb->Search (new  Regexp (OUTPUT_SCH_TKN) ,  0, 

TXTBUFLEK,  TXTBUFLEN) ; 

if  (start_index  >-  0)  { 

char*  string_array []  «  {GEN_SCH_TKN, 

STATES_SCH_TKN,  EXCEPT_SCH_TKN, 
MET_SCH_TKN,  MCP_SCH_TKN, 

MRT_SCH_TKN,  KEy_SCH_TKN, 

DESC_SCH_TKN,  AX_SCH_TKN, 

END_SCH_TKN)  ; 

int  end_index  -  Findindex (3tring_array,  10); 
if  (end_index  >  start_index)  { 

int  index  -  txb->Search (new  Regexp (fixed_id) ,  start_index, 

end_index  -  start_index  +  1, 
end_index) ; 

if  (index  >-0)  { 

int  end_line_index  =  txb->EndOf Line (index) ; 

int  start_line_index  =  txb->BeginningOf Line (index) ; 

txb->Delete (start_line_index, 

end_line_index  -  start_line_index  +  1) ; 

) 

) 


) 


//  Remove  state  declaration  from  PSDL 


void  OperatorSelection: :RemoveStateFromPSDL(TextSelection*  ts)  ( 
char*  id; 
if  (ts  !=  nil)  { 
int  len; 

const  char*  tnp  -  ts->GetOriginal (len) ; 
id  -  new  char [len  +  1]; 
strncpy (id, tmp, len) ; 
id[len]  -  '\0'; 

) 

else  { 

id  -  ID_TKN; 

) 

char*  fixed_id  •=  RemoveBadChars  (id) ; 

int  start_index  =  txb->Search (new  Regexp (STATES_SCH_TKN) ,  0, 

TXTBUFLEN,  TXTBUFLEN) ; 

if  (3tart_index  >==  0)  ( 

char*  string_array[]  =  {GEN_SCH_TKN,  EXCEPT_SCH_TKN, 

MET  SCH  TKN,  MCP_SCH_TKN, 
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MRT_SCH_TKN,  KEY_SCH_TKN, 

DESC_SCH_TKN,  AX_SCH_TKN, 

END_SCH_TKN }  ; 

int  end_index  -  Findindex (3tring_array,  9) ; 
if  (end_index  >  start_index)  { 

int  index  =  txb->Search (new  Regexp (fixed_id) ,  start_index, 

end_index  -  start_index  +  1, 
end_index) ; 

if  (index  >-  0)  { 

int  end_line_index  -  txb->EndOf Line (index) ; 

int  start_line_index  =  txb->BeginningOf Line (index) ; 

txb->Delete (start_line_index, 

end_line_index  -  start_line_index  +  1); 

) 

) 

) 

} 


314 


//  file  tools. c 

//  description:  Implementation  of  Tools  class  and  its  subclasses. 


'I 


//  $Header:  tools. c,v  1.8  89/10/09  14:50:03  linton  Exp  $ 
//  implements  class  Tools. 


/*  Changes  made  to  conform  Idraw  to  CAPS  graphic  editor: 

*  Change  ReshapeTool  to  be  ModifyTool  to  be  consistent  with  user's  view. 

*  Add  AnnotateTool  class  to  show  annotation  view  of  operator  selected. 

*  Add  DecomposeTool  class  to  deconpose  selected  operator  into  sub  oper¬ 
ators  . 

*  Remove  TextTool  and  replace  it  with  CommentTool  and  LabelTool . 

*  Remove  StretchTool,  MultiLineTool,  PolygonTool,  and  ClosedBSplineTool, 

*  ScaleTool,  and  MagnifyTool  because  they  are  not  needed  in  a  data  flow 

*  diagram  editor. 

*  Add  new  function  to  each  subclass  of  IdrawTool  (SetMessage)  to  set 

*  the  value  of  the  message  in  the  message  block  each  time  a  tool  is  run. 

*  Removed  call  to  Panel's  SetCur  to  highlight  select  as  current  tool. 

*  Add  METTool  to  add  maximum  execution  time  of  operator. 

*  Remove  Line  from  the  tools;  Spline  will  be  used  to  draw  a  line. 

*  Change  Annotate  to  Specify  to  make  it  clearer  what  the  user  is  doing 

*  and  add  streams  and  constraints  to  tools. 

*  Add  LatencyTool  to  add  maximum  firing  time  of  data  flow. 

* 

*  Changes  made  by:  Mary  Ann  Cummings 

*  Last  change  made:  October  21,  1990 
*/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"editor. h" 

"keystrokes . h" 

"mapkey.h" 

"tools . h" 

<InterViews /box . h> 
<InterViews/event . h> 
<InterViews/painter . h> 
<InterViews/shape . h> 
<InterViews/Std/ string. h> 


//  An  IdrawTool  enters  itself  into  the  MapKey  so  Idraw  can  send 
//  a  KeyEvent  to  the  right  IdrawTool. 


class  IdrawTool  :  public  Panelltem  { 
public : 

IdrawTool (Panel*,  const  char*,  char.  Editor*,  MapKey*); 
protected: 

Editor*  editor;  //  handles  drawing  and  editing  operations 

); 

//  IdrawTool  stores  the  editor  pointer  and  enters  itself  and  its 
//  associated  character  into  the  MapKey. 
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IdrawTool : : IdrawTool  (Panel*  p,  const  char*  n,  char  c.  Editor*  e, 
MapKey*  mapkey)  :  (p,  n,  mapkey->ToStr (c) ,  c,  e)  ( 

editor  =  e; 

mapkey->Enter (this,  c) ; 

) 

//A  SelectTool  selects  a  set  of  Selections. 

class  SelectTool  :  public  IdrawTool  ( 
public: 

SelectTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Select",  SELECTCHAR,  e,  mk)  (} 

void  SetMessageO  { 
strcpy (msg, 

"pick  object  with  LMB  or  hold  down  button  to  draw  rectangle") ; 
strcat (msg, 

"  around  more  than  1  object"); 
editor->ResetMe3sage (msg) ; 

) 

void  Perform  (Eventi  e)  { 
editor->HandleSelect (e) ; 

) 

); 


//A  MoveTool  moves  a  set  of  Selections. 

class  MoveTool  :  public  IdrawTool  ( 
public : 

MoveTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 
:  (p,  "Move",  MOVECHAR,  e,  mk)  {) 

void  SetMessageO  { 
strcpy (msg, 

"pick  object  with  LMB"); 
editor->ResetMessage (msg)  ; 

) 

void  Perform  (Events  e)  { 
editor->HandleMove (e) ; 

) 

); 


//  The  following  is  not  needed  in  a  data  flow  diagram 

/*  *****  Start  of  Commented  Out  Code  ***** 

//  A  ScaleTool  scales  a  set  of  Selections. 

class  ScaleTool  :  public  IdrawTool  { 
public : 

ScaleTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Scale",  SCALECHAR,  e,  mk)  () 

void  SetMessageO  { 
strcpy (msg. 
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"pick  object  with  LMB"); 
eciitor->Re3etMes3age  (m3g) ; 

) 

void  Perform  (Event&  e)  { 
editor->HandleScale (e) ; 

) 

}; 


//A  StretchTool  atretchea  a  aet  of  Selectiona. 

claaa  StretchTool  :  public  IdrawTool  { 
public: 

StretchTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 
:  (p,  "Stretch",  STRETCHCHAR,  e,  mk)  () 

void  Perform  (Events  e)  { 
editor->HandleStretch (e) ; 

) 

); 


//A  RotateTool  rotatea  a  aet  of  Selectiona. 

claaa  RotateTool  :  public  IdrawTool  { 
public; 

RotateTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 
:  (p,  "Rotate",  ROTATECHAR,  e,  mk)  () 

void  Perform  (Events  e)  ( 
editor->HandleRotate (e)  ; 

1 

}; 

*****  End  of  Commented  Out  Code  *****  */ 

II  A  Modify  Tool  modifiea  a  Selection. 

claaa  ModifyTool  :  public  IdrawTool  { 
public : 

ModifyTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 
:  (p,  "Modify",  MODIFYCHAR,  e,  mk)  () 

void  SetMeaaageO  { 
atrcpy (mag, 

"pick  data  flow  with  LMB"); 
editor->Re3etMe33age (mag) ; 

) 

void  Perform  (Events  e)  { 
editor->HandleModify (e) ; 

) 

}; 


//  The  following  code  ia  not  needed  for  a  data  flow  diagram 
/*  *****  Start  of  Commented  Out  Code  ***** 

//  A  MagnifyTool  magnifiea  a  part  of  the  drawing. 
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class  MagnifyTool  :  public  IdrawTool  { 
public : 

MagnifyTool  (Panel*  p,  Editor*  e,  MapKey*  mk) 

;  (p,  "Magnify",  MAGNIFYCHAR,  e,  mk)  {) 

void  SetMessageO  { 
strcpy (msg, 

"pick  object  with  LMB") ; 
editor->ReaetMes3age (msg) ; 

) 

void  Perform  (Events  e)  { 
editor->HandleMagnify (e) ; 

) 

); 

*****  End  of  Commented  Out  Code  *****  */ 

I /  h.  SpecifyTool  opens  up  syntax  directed  editor  for  selected  component 
//  of  drawing  to  add  PSDL  specification 

class  SpecifyTool  :  public  IdrawTool  { 
public : 

SpecifyTool  (Panel*  p,  Editor*  e,  MapKey*  mk) 

:  (p,  "Specify",  SPECIFYCHAR,  e,  mk)  () 

void  SetMessageO  ( 
strcpy (msg, 

"pick  operator  with  LMB  or  click  anywhere  else  for  specification"); 
strcat (msg, 

"  of  entire  drawing"); 
editor->ResetMessage (msg) ; 

) 

void  Perform  (Events  e)  { 
editor->HandleSpecify (e)  ; 

) 

}; 

//  A  StreamsTools  opens  up  a  syntax  directed  editor  for  drawing  to  add 
//  PSDL  streams 

class  StreamsTool  :  public  IdrawTool  { 
public : 

StreamsTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Streams",  STREAMSCHAR,  e,  mk)  () 

void  SetMessageO  ( 
strcpy (msg, 

"Use  LMB  to  click  anywhere  in  drawing"); 
editor->ResetMessage (msg) ; 

) 

void  Perform  (Events  e)  { 

editor->HandleStreams (e) ; 

) 

); 
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//  A  ConstraintsTools  opens  up  a  syntax  directed  editor  for  drawing  to  add 
//  PSDL  constraints 

class  ConstraintsTool  :  public  IdrawTool  { 
public : 

ConstraintsTool  (Panel*  p.  Editor*  e,  MapKey*  rtik) 

:  (p,  "Constraints",  CONSTRAINTSCHAR,  e,  mk)  () 
void  SetMessageO  { 
strcpy (msg, 

"Use  LMB  to  click  anywhere  in  drawing"); 
editor->ResetMessage (msg) ; 

} 

void  Perform  (Events  e)  { 

editor->HandleCon3traints (e) ; 

) 

); 

//  A  DecomposeTool  will  open  new  graphic  editor  for  lower  level  of  DFD 

class  DeconposeTool  :  public  IdrawTool  ( 
public: 

DecomposeTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Decompose",  DECOMPOSECHAR,  e,  mk)  {) 

void  SetMessageO  { 
strcpy (msg, 

"pick  operator  with  LMB"); 
editor->ResetMessage (msg) ; 

) 

void  Perform  (Events  e)  { 

editor->HandleDecompose (e) ; 

) 

); 

//A  CommentTool  draws  some  text. 

class  CommentTool  ;  public  IdrawTool  { 
public : 

CommentTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Comment",  COMMENTCHAR,  e,  mk)  () 

void  SetMessageO  ( 
strcpy (msg, 

"click  outside  of  objects  to  add  text"); 
editor->ResetMessage (msg) ; 

1 

void  Perform  (Events  e)  { 
editor->HandleText (e) ; 

) 

); 


//A  LabelTool  draws  some  text  for  one  of  the  comp^ments  of  the  DFD 
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class  LabelTool  :  public  IdrawTool  { 
public ; 

LabelTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "Label",  LABELCHAR,  e,  mk)  ( ) 

void  SetMessageO  ( 
strcpy (msg, 

"pick  object  with  LMB,  add  text,  then  click  outside  objects") ; 
editor->Re3etMessage (msg) ; 

) 

void  Perform  (Events  e)  { 
editor->HandleLabel (e) ; 

) 

); 


//A  METTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 

class  METTool  :  public  IdrawTool  { 
public: 

METTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "MET",  METCHAR,  e,  mk)  {) 

void  SetMessageO  { 
strcpy (msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
editor->ResetMessage (msg)  ; 

) 

void  Perform (Events  e)  { 
editor->HandleMET (e)  ; 

) 

); 


//A  LatencyTool  adds  the  latency  time  of  the  specified  data  flow  to  the 
//  drawing 

class  LatencyTool  :  public  IdrawTool  { 
public : 

LatencyTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

;  (p,  "Latency",  LATENCYCHAR,  e,  mk)  ( ) 

void  SetMessageO  { 
strcpy (msg, 

"pick  data  flow  with  LMB,  add  text,  then  click  outside  object") ; 
editor->ResetMessage (msg) ; 

) 

void  Perform (Events  e)  { 

editor->HandleLatency (e) ; 

) 

); 


//  Line  no  longer  used,  use  spline  to  draw  a  line. 
/*  *****  Start  of  Commented  Out  Code  ***** 

//A  LineTool  draws  a  line. 
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class  LineTool  :  public  IdrawTool  { 
public : 

LineTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  LINECHAR,  e,  mk)  {) 

void  SetMessageO  { 
strcpy (msg, 

"click  at  stop  to  place  one  endpoint,  hold  down  button  and  ") 
strcat (msg, 

"stretch  line  and  release  button  at  other  endpoint") ; 
editor->ResetMessage (msg) ; 

) 

void  Perform  (Events  e)  { 
editor->HandleLine (e) ; 

) 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 

IdrawTool :: Redraw (1,  b,  r,  t) ; 

Coord  xO  -  offx  +  aide  *  1/5; 

Coord  yO  *  offy  +  side  *  4/5; 

Coord  xl  -  offx  +  aide  *  4/5; 

Coord  yl  -  offy  +  side  *  1/5; 

output->Line (canvas,  xO,  yO,  xl,  yl); 

) 

}; 


/I  The  following  is  not  needed  for  the  data  flow  diagram 

//A  MultiLineTool  draws  a  set  of  connected  lines. 

class  MultiLineTool  :  public  IdrawTool  { 
public : 

MultiLineTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  "",  MULTI LINECHAR,  e,  mk)  {) 

void  Perform  (Events  e)  { 
editor->HandleMultiLine (e) ; 

) 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  i 
IdrawTool :: Redraw (1,  b,  r,  t)  ; 


const 

int  N 

= 

4; 

Coord 

x[N]  ; 

Coord 

y  [N]  ; 

x[0] 

=  offx 

+ 

side 

* 

1/5; 

y[0] 

-  offy 

+ 

side 

* 

4/5; 

x[l] 

-  offx 

+ 

side 

* 

1/2; 

y[i] 

“  offy 

+ 

side 

* 

4/5  - 

side  * 

1/10; 

x[2] 

-  offx 

+ 

side 

* 

1/2; 

y[2] 

“  offy 

+ 

side 

* 

1/5  + 

side  * 

1/10; 

x[3] 

«  offx 

+ 

side 

* 

4/5; 

y[3] 

-  offy 

+ 

side 

* 

1/5; 

output->MultiLine (canvas,  x,  y,  N)  ; 
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} 

); 

*****  End  of  Commented  Out  Code  *****  */ 

//A  BSplineTool  draws  an  open  B-spline. 

class  BSplineTool  :  public  IdrawTool  { 
public : 

BSplineTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  BSPLINECHAR,  e,  mk)  () 

void  SetMessageO  { 
strcpy (msg, 

"click  LMB  at  each  spot  to  place  segment  of  spline") ; 
editor->ResetMessage (msg)  ; 

) 

void  Perform  (Eventi  e)  { 
editor->HandleBSpline (e) ; 

) 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  ( 
IdrawTool :: Redraw (1,  b,  r,  t); 


const 

int  N 

- 

4; 

Coord 

x[N]  ; 

Coord 

y[N)  ; 

x[0]  - 

of  fx 

+ 

side 

* 

1/5 

y[01  - 

of  fy 

-f 

side 

* 

4/5 

xUl  - 

of  fx 

+ 

side 

* 

1/2 

yCl]  - 

of  fy 

+ 

side 

* 

4/5 

x(2)  - 

of  fx 

+ 

side 

* 

1/2 

y[2]  = 

of  fy 

+ 

side 

* 

1/5 

xl3)  - 

of  fx 

+ 

side 

* 

4/5 

of  fy 

+ 

side 

* 

1/5 

«.  utp  *t->BSpline  (canvas,  x,  y,  N)  ; 

) 

)  ; 

//  An  EllipseTool  draws  an  ellipse. 

class  EllipseTool  :  public  IdrawTool  { 
public : 

EllipseTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  (p,  ELLIPSECHAR,  e,  mk)  {} 

void  SetMessageO  { 
strcpy (msg, 

"click  with  LMB  to  draw  operator  centered  at  that  point") 
editor->Re3etMe3sage (msg) ; 

) 

void  Perform  (Eventi  e)  ( 
editor->HandleEllipse (e)  ; 

) 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  ( 
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IdrawTool :: Redraw (1,  b,  r,  t); 

Coord  xO  “  offx  +  side  *  1/2; 

Coord  yO  -  offy  +  side  *  1/2; 

Coord  xradius  -  side  *  1/3  +  side  *  1/16; 

Coord  yradius  -  side  *  1/3  -  side  *  1/16; 

output->Ellipse (canvas,  xO,  yO,  xradius,  yradius); 
) 


r 


II  The  following  is  not  needed  for  a  data  flow  diagram 
/*  *****  Start  of  Commented  Out  Code  ***** 


//  A  RectTool  draws  a  rectangle. 

class  RectTool  :  public  IdrawTool  ( 
public : 

RectTool  (Panel*  p.  Editor*  e,  MapKey*  m)c) 

:  (p,  RECTCHAR,  e,  mk)  {) 

void  Perform  (Events  e)  { 
editor->HandleRect (e)  ; 

} 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
IdrawTool :: Redraw (1,  b,  r,  t) ; 

Coord  xO  “  offx  +  side  *  1/5; 

Coord  yO  «  offy  +  side  *  1/5; 

Coord  xl  -  offx  +  side  *  4/5; 

Coord  yl  =  offy  +  side  *  4/5; 
output->Rect (canvas,  xO,  yO,  xl,  yl); 

) 


//A  PolygonTool  draws  a  polygon. 


class  PolygonTool  :  public  IdrawTool  { 
public : 

PolygonTool  (Panel*  p,  Eait'ir*  e,  MapKey*  mJc) 
:  (p,  POLYGONCHAR,  e,  m)c;  () 

void  Perform  (Events  e)  { 
editor->HandlePolygon (e)  ; 

) 


protected: 

void  Redraw  (Coord 
IdrawTool : : Redraw (1, 
const  int  N  =  5; 
Coord  X [N] ; 

Coord  y [N] ; 
x[0]  =  offx  +  side  * 
y[0]  =  offy  +  side  * 
x[l]  -  offx  +  side  * 
y[l]  “  offy  +  side  * 


1,  Coord  b.  Coord 
b,  r,  t); 


1/5  +  side  *  1/8; 
1/5; 

1/5; 

1/2; 


r. 


Coord  t) 


{ 
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1; 


x[2] 

-  of fx 

+ 

side 

* 

1/2; 

y[2] 

«  offy 

+ 

side 

* 

4/5; 

x[3] 

-  offx 

+ 

side 

Ik 

4/5; 

y[3] 

-  offy 

+ 

side 

* 

1/2  + 

side  * 

1/8; 

x[4] 

-  offx 

+ 

side 

* 

4/5  - 

side  * 

1/32; 

y[4] 

«  offy 

+ 

side 

* 

1/5  + 

side  * 

1/8; 

output->Polygon (canvas,  x. 

y,  N); 

) 


//A  ClosedBSplineTool  draws  a  closed  B-spline. 

class  ClosedBSplineTool  :  public  IdrawTool  { 
public : 

ClosedBSplineTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 
:  (p,  CLOSEDBSPLINECHAR,  e,  mk)  () 

void  Perform  (Events  e)  ( 
editor->HandleClosedBSpline (e) ; 

) 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  ( 
IdrawTool :: Redraw (1,  b,  r,  t) ; 


const 

int  N 

as 

6; 

Coord 

x[N]  ; 

Coord 

y  [N]  ; 

xCO]  - 

offx 

+ 

side 

* 

1/10; 

y[0]  - 

offy 

+ 

side 

* 

1/2 

x[l]  - 

offx 

+ 

side 

* 

3/5 

yti]  = 

offy 

+ 

side 

* 

1/5 

x(2]  - 

offx 

+ 

side 

* 

4/5 

y[2]  - 

offy 

+ 

side 

* 

2/5 

x[3]  - 

offx 

+ 

side 

♦ 

1/2 

y[3]  - 

offy 

+ 

side 

* 

1/2 

x[4]  - 

offx 

+ 

side 

♦ 

4/5 

y[4I  • 

offy 

+ 

side 

* 

3/5 

x[5]  - 

offx 

side 

* 

3/5 

y[5)  - 

offy 

+ 

side 

* 

4/5 

output->ClosedBSpline (canvas,  x,  y,  N) ; 

) 

); 

*****  End  of  Commented  Out  Code  *****  */ 

//  Tools  creates  its  tools. 

Tools:: Tools  (Editor*  e,  MapKey*  mk)  ( 

Init  (e,  mk) ; 

) 

//  Handle  tells  one  of  the  tools  to  perform  its  function  if  a 
//  DownEvent  occurs. 

void  Tools :: Handle  (Events  e)  ( 
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switch  (e . eventType)  { 
case  DownEvent : 
switch  (e. button)  { 
case  LEFTMOUSE: 

Perf ormCurrentFunction (e) ; 
break; 

case  MIDDLEMOUSE: 

PerformTemporaryFunction (e,  MOVECHAR) ; 
break; 

case  RIGHTMOUSE: 

PerformTemporaryFunction (e,  SELECTCHAR) ; 
break; 
default : 
break; 

‘  ) 

default : 

►  break; 

) 

} 

//  Init  creates  the  tools,  lays  them  together,  and  inserts  them. 

void  Tools:: Init  (Editor*  e,  MapKey*  mk)  ( 

Panelltem*  first  •  new  SelectTool (this,  e,  mk) ; 

VBox*  tools  -  new  VBox; 
tools->Insert (first) ; 

tools->Insert (new  MoveTool (this,  e,  mk)); 

II  tools->Insert (new  ScaleTool (this,  e,  mk) ) ; 

//  tools->Insert (new  StretchTool (this,  e,  mk) ) ; 

//  tools->Insert (new  RotateTool (this,  e,  mk) ) ; 

tools->Insert (new  ModifyTool (this,  e,  mk) ) ; 

//  tools->Insert (new  MagnifyTool (thi s,  e,  mk) ) ; 
tools->Insert (new  SpecifyTool (this,  e,  mk) ) ; 
tools->lnsert (new  StreamsTool (this,  e,  mk) ) ; 
tools->Insert (new  ConstraintsTool (this,  e,  mk) ) ; 
tools->Insert (new  DecomposeTool (this,  e,  mk) ) ; 
tools->Insert (new  CommentTool (this,  e,  mk) ) ; 
tools->Insert (new  LabelTool (this,  e,  mk) ) ; 

'  tools->Insert (new  METTool (this,  e,  mk) ) ; 

tools->Insert (new  LatencyTool (this,  e,  mk) ) ; 

,  //  tools->Insert (new  LineTool (this,  e,  mk)); 

//  tools->lnsert (new  MultiLineTool (this,  e,  mk) ) ; 

tools->Insert (new  BSplineTool (this,  e,  mk) ) ; 
tools->Insert (new  EllipseTool (this,  e,  mk) ) ; 

//  tools->Insert (new  RectTool (this,  e,  mk) ) ; 

//  tools->lnsert (new  PolygonTool (this,  e,  mk) ) ; 
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//  tools->Insert (new  ClosedBSplineTool (this,  e,  mk) ) ; 

Insert (tools) ; 

//  SetCur (first) ; 

) 

//  Reconfig  ma)ces  Tools's  shape  unstretchable  but  shrinlcable. 

void  Tools :: Reconfig  ()  { 

Panel : : Reconfig ( )  ; 
shape->Rigid(0,  0,  vfil,  0); 

} 


( 
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